home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 98.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 33 37 3a 33 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:37:33 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 61 63 6b |s-20.3/l|isp/pack|
|000000a0| 61 67 65 73 2f 61 75 74 | 6f 2d 61 75 74 6f 6c 6f |ages/aut|o-autolo|
|000000b0| 61 64 73 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |ads.el.;|;; emacs|
|000000c0| 20 76 65 72 73 69 6f 6e | 20 32 30 2e 34 20 22 45 | version| 20.4 "E|
|000000d0| 6d 65 72 61 6c 64 22 20 | 58 45 6d 61 63 73 20 20 |merald" |XEmacs |
|000000e0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000f0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 32 35 |omp vers|ion 2.25|
|00000100| 20 58 45 6d 61 63 73 3b | 20 32 32 2d 4d 61 72 2d | XEmacs;| 22-Mar-|
|00000110| 39 36 2e 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |96..;;; |optimiza|
|00000120| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|00000130| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|00000140| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|00000150| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000160| 63 73 20 31 39 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 19...|(if (and|
|00000170| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000180| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000190| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|000001a0| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|000001b0| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion).. |
|000001c0| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 | (stri|ng-lessp|
|000001d0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|000001e0| 32 30 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |20"))). | (erro|
|000001f0| 72 20 22 60 61 75 74 6f | 2d 61 75 74 6f 6c 6f 61 |r "`auto|-autoloa|
|00000200| 64 73 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |ds.el' w|as compi|
|00000210| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000220| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000230| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000240| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000250| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000260| 29 29 0a 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))...(by|te-code |
|00000270| 22 c0 c1 21 ab 84 c2 c3 | 21 88 c0 87 22 20 5b 66 |"..!....|!..." [f|
|00000280| 65 61 74 75 72 65 70 20 | 70 61 63 6b 61 67 65 73 |eaturep |packages|
|00000290| 2d 61 75 74 6f 6c 6f 61 | 64 73 20 65 72 72 6f 72 |-autoloa|ds error|
|000002a0| 20 22 41 6c 72 65 61 64 | 79 20 6c 6f 61 64 65 64 | "Alread|y loaded|
|000002b0| 22 5d 20 32 29 0a 23 40 | 33 31 20 50 72 6f 6d 70 |"] 2).#@|31 Promp|
|000002c0| 74 20 66 6f 72 20 61 20 | 63 68 61 6e 67 65 20 6c |t for a |change l|
|000002d0| 6f 67 20 6e 61 6d 65 2e | 1f 0a 28 61 75 74 6f 6c |og name.|..(autol|
|000002e0| 6f 61 64 20 27 70 72 6f | 6d 70 74 2d 66 6f 72 2d |oad 'pro|mpt-for-|
|000002f0| 63 68 61 6e 67 65 2d 6c | 6f 67 2d 6e 61 6d 65 20 |change-l|og-name |
|00000300| 22 61 64 64 2d 6c 6f 67 | 22 20 27 28 23 24 20 2e |"add-log|" '(#$ .|
|00000310| 20 36 39 39 29 20 6e 69 | 6c 20 6e 69 6c 29 0a 23 | 699) ni|l nil).#|
|00000320| 40 36 33 32 20 46 69 6e | 64 20 61 20 63 68 61 6e |@632 Fin|d a chan|
|00000330| 67 65 20 6c 6f 67 20 66 | 69 6c 65 20 66 6f 72 20 |ge log f|ile for |
|00000340| 5c 5b 61 64 64 2d 63 68 | 61 6e 67 65 2d 6c 6f 67 |\[add-ch|ange-log|
|00000350| 2d 65 6e 74 72 79 5d 20 | 61 6e 64 20 72 65 74 75 |-entry] |and retu|
|00000360| 72 6e 20 74 68 65 20 6e | 61 6d 65 2e 0a 0a 4f 70 |rn the n|ame...Op|
|00000370| 74 69 6f 6e 61 6c 20 61 | 72 67 20 46 49 4c 45 2d |tional a|rg FILE-|
|00000380| 4e 41 4d 45 20 73 70 65 | 63 69 66 69 65 73 20 74 |NAME spe|cifies t|
|00000390| 68 65 20 66 69 6c 65 20 | 74 6f 20 75 73 65 2e 0a |he file |to use..|
|000003a0| 49 66 20 46 49 4c 45 2d | 4e 41 4d 45 20 69 73 20 |If FILE-|NAME is |
|000003b0| 6e 69 6c 2c 20 75 73 65 | 20 74 68 65 20 76 61 6c |nil, use| the val|
|000003c0| 75 65 20 6f 66 20 60 63 | 68 61 6e 67 65 2d 6c 6f |ue of `c|hange-lo|
|000003d0| 67 2d 64 65 66 61 75 6c | 74 2d 6e 61 6d 65 27 2e |g-defaul|t-name'.|
|000003e0| 0a 49 66 20 27 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |.If 'cha|nge-log-|
|000003f0| 64 65 66 61 75 6c 74 2d | 6e 61 6d 65 27 20 69 73 |default-|name' is|
|00000400| 20 6e 69 6c 2c 20 62 65 | 68 61 76 65 20 61 73 20 | nil, be|have as |
|00000410| 74 68 6f 75 67 68 20 69 | 74 20 77 65 72 65 20 27 |though i|t were '|
|00000420| 43 68 61 6e 67 65 4c 6f | 67 27 0a 28 6f 72 20 77 |ChangeLo|g'.(or w|
|00000430| 68 61 74 65 76 65 72 20 | 77 65 20 75 73 65 20 6f |hatever |we use o|
|00000440| 6e 20 74 68 69 73 20 6f | 70 65 72 61 74 69 6e 67 |n this o|perating|
|00000450| 20 73 79 73 74 65 6d 29 | 2e 0a 0a 49 66 20 27 63 | system)|...If 'c|
|00000460| 68 61 6e 67 65 2d 6c 6f | 67 2d 64 65 66 61 75 6c |hange-lo|g-defaul|
|00000470| 74 2d 6e 61 6d 65 27 20 | 63 6f 6e 74 61 69 6e 73 |t-name' |contains|
|00000480| 20 61 20 6c 65 61 64 69 | 6e 67 20 64 69 72 65 63 | a leadi|ng direc|
|00000490| 74 6f 72 79 20 63 6f 6d | 70 6f 6e 65 6e 74 2c 20 |tory com|ponent, |
|000004a0| 74 68 65 6e 0a 73 69 6d | 70 6c 79 20 66 69 6e 64 |then.sim|ply find|
|000004b0| 20 69 74 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 | it in t|he curre|
|000004c0| 6e 74 20 64 69 72 65 63 | 74 6f 72 79 2e 20 20 4f |nt direc|tory. O|
|000004d0| 74 68 65 72 77 69 73 65 | 2c 20 73 65 61 72 63 68 |therwise|, search|
|000004e0| 20 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | in the |current |
|000004f0| 0a 64 69 72 65 63 74 6f | 72 79 20 61 6e 64 20 69 |.directo|ry and i|
|00000500| 74 73 20 73 75 63 63 65 | 73 73 69 76 65 20 70 61 |ts succe|ssive pa|
|00000510| 72 65 6e 74 73 20 66 6f | 72 20 61 20 66 69 6c 65 |rents fo|r a file|
|00000520| 20 73 6f 20 6e 61 6d 65 | 64 2e 0a 0a 4f 6e 63 65 | so name|d...Once|
|00000530| 20 61 20 66 69 6c 65 20 | 69 73 20 66 6f 75 6e 64 | a file |is found|
|00000540| 2c 20 60 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 64 65 |, `chang|e-log-de|
|00000550| 66 61 75 6c 74 2d 6e 61 | 6d 65 27 20 69 73 20 73 |fault-na|me' is s|
|00000560| 65 74 20 6c 6f 63 61 6c | 6c 79 20 69 6e 20 74 68 |et local|ly in th|
|00000570| 65 0a 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e.curren|t buffer|
|00000580| 20 74 6f 20 74 68 65 20 | 63 6f 6d 70 6c 65 74 65 | to the |complete|
|00000590| 20 66 69 6c 65 20 6e 61 | 6d 65 2e 1f 0a 28 61 75 | file na|me...(au|
|000005a0| 74 6f 6c 6f 61 64 20 27 | 66 69 6e 64 2d 63 68 61 |toload '|find-cha|
|000005b0| 6e 67 65 2d 6c 6f 67 20 | 22 61 64 64 2d 6c 6f 67 |nge-log |"add-log|
|000005c0| 22 20 27 28 23 24 20 2e | 20 38 30 35 29 20 6e 69 |" '(#$ .| 805) ni|
|000005d0| 6c 20 6e 69 6c 29 0a 23 | 40 34 38 35 20 46 69 6e |l nil).#|@485 Fin|
|000005e0| 64 20 63 68 61 6e 67 65 | 20 6c 6f 67 20 66 69 6c |d change| log fil|
|000005f0| 65 20 61 6e 64 20 61 64 | 64 20 61 6e 20 65 6e 74 |e and ad|d an ent|
|00000600| 72 79 20 66 6f 72 20 74 | 6f 64 61 79 2e 0a 4f 70 |ry for t|oday..Op|
|00000610| 74 69 6f 6e 61 6c 20 61 | 72 67 20 28 69 6e 74 65 |tional a|rg (inte|
|00000620| 72 61 63 74 69 76 65 20 | 70 72 65 66 69 78 29 20 |ractive |prefix) |
|00000630| 6e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 70 72 |non-nil |means pr|
|00000640| 6f 6d 70 74 20 66 6f 72 | 20 75 73 65 72 20 6e 61 |ompt for| user na|
|00000650| 6d 65 20 61 6e 64 20 73 | 69 74 65 2e 0a 53 65 63 |me and s|ite..Sec|
|00000660| 6f 6e 64 20 61 72 67 20 | 69 73 20 66 69 6c 65 20 |ond arg |is file |
|00000670| 6e 61 6d 65 20 6f 66 20 | 63 68 61 6e 67 65 20 6c |name of |change l|
|00000680| 6f 67 2e 20 20 49 66 20 | 6e 69 6c 2c 20 75 73 65 |og. If |nil, use|
|00000690| 73 20 60 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 64 65 |s `chang|e-log-de|
|000006a0| 66 61 75 6c 74 2d 6e 61 | 6d 65 27 2e 0a 54 68 69 |fault-na|me'..Thi|
|000006b0| 72 64 20 61 72 67 20 4f | 54 48 45 52 2d 57 49 4e |rd arg O|THER-WIN|
|000006c0| 44 4f 57 20 6e 6f 6e 2d | 6e 69 6c 20 6d 65 61 6e |DOW non-|nil mean|
|000006d0| 73 20 76 69 73 69 74 20 | 69 6e 20 6f 74 68 65 72 |s visit |in other|
|000006e0| 20 77 69 6e 64 6f 77 2e | 0a 46 6f 75 72 74 68 20 | window.|.Fourth |
|000006f0| 61 72 67 20 4e 45 57 2d | 45 4e 54 52 59 20 6e 6f |arg NEW-|ENTRY no|
|00000700| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 61 6c 77 61 |n-nil me|ans alwa|
|00000710| 79 73 20 63 72 65 61 74 | 65 20 61 20 6e 65 77 20 |ys creat|e a new |
|00000720| 65 6e 74 72 79 20 61 74 | 20 74 68 65 20 66 72 6f |entry at| the fro|
|00000730| 6e 74 3b 0a 6e 65 76 65 | 72 20 61 70 70 65 6e 64 |nt;.neve|r append|
|00000740| 20 74 6f 20 61 6e 20 65 | 78 69 73 74 69 6e 67 20 | to an e|xisting |
|00000750| 65 6e 74 72 79 2e 20 20 | 54 6f 64 61 79 27 73 20 |entry. |Today's |
|00000760| 64 61 74 65 20 69 73 20 | 63 61 6c 63 75 6c 61 74 |date is |calculat|
|00000770| 65 64 20 61 63 63 6f 72 | 64 69 6e 67 20 74 6f 0a |ed accor|ding to.|
|00000780| 60 63 68 61 6e 67 65 2d | 6c 6f 67 2d 74 69 6d 65 |`change-|log-time|
|00000790| 2d 7a 6f 6e 65 2d 72 75 | 6c 65 27 20 69 66 20 6e |-zone-ru|le' if n|
|000007a0| 6f 6e 2d 6e 69 6c 2c 20 | 6f 74 68 65 72 77 69 73 |on-nil, |otherwis|
|000007b0| 65 20 69 6e 20 6c 6f 63 | 61 6c 20 74 69 6d 65 2e |e in loc|al time.|
|000007c0| 1f 0a 28 61 75 74 6f 6c | 6f 61 64 20 27 61 64 64 |..(autol|oad 'add|
|000007d0| 2d 63 68 61 6e 67 65 2d | 6c 6f 67 2d 65 6e 74 72 |-change-|log-entr|
|000007e0| 79 20 22 61 64 64 2d 6c | 6f 67 22 20 27 28 23 24 |y "add-l|og" '(#$|
|000007f0| 20 2e 20 31 35 30 31 29 | 20 74 20 6e 69 6c 29 0a | . 1501)| t nil).|
|00000800| 23 40 32 32 35 20 46 69 | 6e 64 20 63 68 61 6e 67 |#@225 Fi|nd chang|
|00000810| 65 20 6c 6f 67 20 66 69 | 6c 65 20 69 6e 20 6f 74 |e log fi|le in ot|
|00000820| 68 65 72 20 77 69 6e 64 | 6f 77 20 61 6e 64 20 61 |her wind|ow and a|
|00000830| 64 64 20 61 6e 20 65 6e | 74 72 79 20 66 6f 72 20 |dd an en|try for |
|00000840| 74 6f 64 61 79 2e 0a 4f | 70 74 69 6f 6e 61 6c 20 |today..O|ptional |
|00000850| 61 72 67 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |arg (int|eractive|
|00000860| 20 70 72 65 66 69 78 29 | 20 6e 6f 6e 2d 6e 69 6c | prefix)| non-nil|
|00000870| 20 6d 65 61 6e 73 20 70 | 72 6f 6d 70 74 20 66 6f | means p|rompt fo|
|00000880| 72 20 75 73 65 72 20 6e | 61 6d 65 20 61 6e 64 20 |r user n|ame and |
|00000890| 73 69 74 65 2e 0a 53 65 | 63 6f 6e 64 20 61 72 67 |site..Se|cond arg|
|000008a0| 20 69 73 20 66 69 6c 65 | 20 6e 61 6d 65 20 6f 66 | is file| name of|
|000008b0| 20 63 68 61 6e 67 65 20 | 6c 6f 67 2e 20 20 49 66 | change |log. If|
|000008c0| 20 6e 69 6c 2c 20 75 73 | 65 73 20 60 63 68 61 6e | nil, us|es `chan|
|000008d0| 67 65 2d 6c 6f 67 2d 64 | 65 66 61 75 6c 74 2d 6e |ge-log-d|efault-n|
|000008e0| 61 6d 65 27 2e 1f 0a 28 | 61 75 74 6f 6c 6f 61 64 |ame'...(|autoload|
|000008f0| 20 27 61 64 64 2d 63 68 | 61 6e 67 65 2d 6c 6f 67 | 'add-ch|ange-log|
|00000900| 2d 65 6e 74 72 79 2d 6f | 74 68 65 72 2d 77 69 6e |-entry-o|ther-win|
|00000910| 64 6f 77 20 22 61 64 64 | 2d 6c 6f 67 22 20 27 28 |dow "add|-log" '(|
|00000920| 23 24 20 2e 20 32 30 35 | 34 29 20 74 20 6e 69 6c |#$ . 205|4) t nil|
|00000930| 29 0a 28 64 65 66 69 6e | 65 2d 6b 65 79 20 63 74 |).(defin|e-key ct|
|00000940| 6c 2d 78 2d 34 2d 6d 61 | 70 20 22 61 22 20 27 61 |l-x-4-ma|p "a" 'a|
|00000950| 64 64 2d 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 65 6e |dd-chang|e-log-en|
|00000960| 74 72 79 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |try-othe|r-window|
|00000970| 29 0a 23 40 33 34 36 20 | 4d 61 6a 6f 72 20 6d 6f |).#@346 |Major mo|
|00000980| 64 65 20 66 6f 72 20 65 | 64 69 74 69 6e 67 20 63 |de for e|diting c|
|00000990| 68 61 6e 67 65 20 6c 6f | 67 73 3b 20 6c 69 6b 65 |hange lo|gs; like|
|000009a0| 20 49 6e 64 65 6e 74 65 | 64 20 54 65 78 74 20 4d | Indente|d Text M|
|000009b0| 6f 64 65 2e 0a 50 72 65 | 76 65 6e 74 73 20 6e 75 |ode..Pre|vents nu|
|000009c0| 6d 65 72 69 63 20 62 61 | 63 6b 75 70 73 20 61 6e |meric ba|ckups an|
|000009d0| 64 20 73 65 74 73 20 60 | 6c 65 66 74 2d 6d 61 72 |d sets `|left-mar|
|000009e0| 67 69 6e 27 20 74 6f 20 | 38 20 61 6e 64 20 60 66 |gin' to |8 and `f|
|000009f0| 69 6c 6c 2d 63 6f 6c 75 | 6d 6e 27 20 74 6f 20 37 |ill-colu|mn' to 7|
|00000a00| 34 2e 0a 4e 65 77 20 6c | 6f 67 20 65 6e 74 72 69 |4..New l|og entri|
|00000a10| 65 73 20 61 72 65 20 75 | 73 75 61 6c 6c 79 20 6d |es are u|sually m|
|00000a20| 61 64 65 20 77 69 74 68 | 20 5c 5b 61 64 64 2d 63 |ade with| \[add-c|
|00000a30| 68 61 6e 67 65 2d 6c 6f | 67 2d 65 6e 74 72 79 5d |hange-lo|g-entry]|
|00000a40| 20 6f 72 20 5c 5b 61 64 | 64 2d 63 68 61 6e 67 65 | or \[ad|d-change|
|00000a50| 2d 6c 6f 67 2d 65 6e 74 | 72 79 2d 6f 74 68 65 72 |-log-ent|ry-other|
|00000a60| 2d 77 69 6e 64 6f 77 5d | 2e 0a 45 61 63 68 20 65 |-window]|..Each e|
|00000a70| 6e 74 72 79 20 62 65 68 | 61 76 65 73 20 61 73 20 |ntry beh|aves as |
|00000a80| 61 20 70 61 72 61 67 72 | 61 70 68 2c 20 61 6e 64 |a paragr|aph, and|
|00000a90| 20 74 68 65 20 65 6e 74 | 72 69 65 73 20 66 6f 72 | the ent|ries for|
|00000aa0| 20 6f 6e 65 20 64 61 79 | 20 61 73 20 61 20 70 61 | one day| as a pa|
|00000ab0| 67 65 2e 0a 52 75 6e 73 | 20 60 63 68 61 6e 67 65 |ge..Runs| `change|
|00000ac0| 2d 6c 6f 67 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 27 2e |-log-mod|e-hook'.|
|00000ad0| 1f 0a 28 61 75 74 6f 6c | 6f 61 64 20 27 63 68 61 |..(autol|oad 'cha|
|00000ae0| 6e 67 65 2d 6c 6f 67 2d | 6d 6f 64 65 20 22 61 64 |nge-log-|mode "ad|
|00000af0| 64 2d 6c 6f 67 22 20 27 | 28 23 24 20 2e 20 32 34 |d-log" '|(#$ . 24|
|00000b00| 32 34 29 20 74 20 6e 69 | 6c 29 0a 23 40 35 36 20 |24) t ni|l).#@56 |
|00000b10| 2a 4d 6f 64 65 73 20 74 | 68 61 74 20 6c 6f 6f 6b |*Modes t|hat look|
|00000b20| 20 6c 69 6b 65 20 4c 69 | 73 70 20 74 6f 20 60 61 | like Li|sp to `a|
|00000b30| 64 64 2d 6c 6f 67 2d 63 | 75 72 72 65 6e 74 2d 64 |dd-log-c|urrent-d|
|00000b40| 65 66 75 6e 27 2e 1f 0a | 28 64 65 66 76 61 72 20 |efun'...|(defvar |
|00000b50| 61 64 64 2d 6c 6f 67 2d | 6c 69 73 70 2d 6c 69 6b |add-log-|lisp-lik|
|00000b60| 65 2d 6d 6f 64 65 73 20 | 27 28 65 6d 61 63 73 2d |e-modes |'(emacs-|
|00000b70| 6c 69 73 70 2d 6d 6f 64 | 65 20 6c 69 73 70 2d 6d |lisp-mod|e lisp-m|
|00000b80| 6f 64 65 20 73 63 68 65 | 6d 65 2d 6d 6f 64 65 20 |ode sche|me-mode |
|00000b90| 6c 69 73 70 2d 69 6e 74 | 65 72 61 63 74 69 6f 6e |lisp-int|eraction|
|00000ba0| 2d 6d 6f 64 65 29 20 28 | 23 24 20 2e 20 2d 32 38 |-mode) (|#$ . -28|
|00000bb0| 33 32 29 29 0a 23 40 35 | 33 20 2a 4d 6f 64 65 73 |32)).#@5|3 *Modes|
|00000bc0| 20 74 68 61 74 20 6c 6f | 6f 6b 20 6c 69 6b 65 20 | that lo|ok like |
|00000bd0| 43 20 74 6f 20 60 61 64 | 64 2d 6c 6f 67 2d 63 75 |C to `ad|d-log-cu|
|00000be0| 72 72 65 6e 74 2d 64 65 | 66 75 6e 27 2e 1f 0a 28 |rrent-de|fun'...(|
|00000bf0| 64 65 66 76 61 72 20 61 | 64 64 2d 6c 6f 67 2d 63 |defvar a|dd-log-c|
|00000c00| 2d 6c 69 6b 65 2d 6d 6f | 64 65 73 20 27 28 63 2d |-like-mo|des '(c-|
|00000c10| 6d 6f 64 65 20 63 2b 2b | 2d 6d 6f 64 65 20 63 2b |mode c++|-mode c+|
|00000c20| 2b 2d 63 2d 6d 6f 64 65 | 20 6f 62 6a 63 2d 6d 6f |+-c-mode| objc-mo|
|00000c30| 64 65 20 6a 61 76 61 2d | 6d 6f 64 65 29 20 28 23 |de java-|mode) (#|
|00000c40| 24 20 2e 20 2d 33 30 30 | 32 29 29 0a 23 40 35 35 |$ . -300|2)).#@55|
|00000c50| 20 2a 4d 6f 64 65 73 20 | 74 68 61 74 20 6c 6f 6f | *Modes |that loo|
|00000c60| 6b 20 6c 69 6b 65 20 54 | 65 58 20 74 6f 20 60 61 |k like T|eX to `a|
|00000c70| 64 64 2d 6c 6f 67 2d 63 | 75 72 72 65 6e 74 2d 64 |dd-log-c|urrent-d|
|00000c80| 65 66 75 6e 27 2e 1f 0a | 28 64 65 66 76 61 72 20 |efun'...|(defvar |
|00000c90| 61 64 64 2d 6c 6f 67 2d | 74 65 78 2d 6c 69 6b 65 |add-log-|tex-like|
|00000ca0| 2d 6d 6f 64 65 73 20 27 | 28 54 65 58 2d 6d 6f 64 |-modes '|(TeX-mod|
|00000cb0| 65 20 70 6c 61 69 6e 2d | 54 65 58 2d 6d 6f 64 65 |e plain-|TeX-mode|
|00000cc0| 20 4c 61 54 65 58 2d 6d | 6f 64 65 20 70 6c 61 69 | LaTeX-m|ode plai|
|00000cd0| 6e 2d 74 65 78 2d 6d 6f | 64 65 20 6c 61 74 65 78 |n-tex-mo|de latex|
|00000ce0| 2d 6d 6f 64 65 29 20 28 | 23 24 20 2e 20 2d 33 31 |-mode) (|#$ . -31|
|00000cf0| 35 33 29 29 0a 23 40 34 | 32 39 20 52 65 74 75 72 |53)).#@4|29 Retur|
|00000d00| 6e 20 6e 61 6d 65 20 6f | 66 20 66 75 6e 63 74 69 |n name o|f functi|
|00000d10| 6f 6e 20 64 65 66 69 6e | 69 74 69 6f 6e 20 70 6f |on defin|ition po|
|00000d20| 69 6e 74 20 69 73 20 69 | 6e 2c 20 6f 72 20 6e 69 |int is i|n, or ni|
|00000d30| 6c 2e 0a 0a 55 6e 64 65 | 72 73 74 61 6e 64 73 20 |l...Unde|rstands |
|00000d40| 43 2c 20 4c 69 73 70 2c | 20 4c 61 54 65 58 20 28 |C, Lisp,| LaTeX (|
|00000d50| 22 66 75 6e 63 74 69 6f | 6e 73 22 20 61 72 65 20 |"functio|ns" are |
|00000d60| 63 68 61 70 74 65 72 73 | 2c 20 73 65 63 74 69 6f |chapters|, sectio|
|00000d70| 6e 73 2c 20 2e 2e 2e 29 | 2c 0a 54 65 78 69 6e 66 |ns, ...)|,.Texinf|
|00000d80| 6f 20 28 40 6e 6f 64 65 | 20 74 69 74 6c 65 73 29 |o (@node| titles)|
|00000d90| 2c 20 50 65 72 6c 2c 20 | 61 6e 64 20 46 6f 72 74 |, Perl, |and Fort|
|00000da0| 72 61 6e 2e 0a 0a 4f 74 | 68 65 72 20 6d 6f 64 65 |ran...Ot|her mode|
|00000db0| 73 20 61 72 65 20 68 61 | 6e 64 6c 65 64 20 62 79 |s are ha|ndled by|
|00000dc0| 20 61 20 68 65 75 72 69 | 73 74 69 63 20 74 68 61 | a heuri|stic tha|
|00000dd0| 74 20 6c 6f 6f 6b 73 20 | 69 6e 20 74 68 65 20 31 |t looks |in the 1|
|00000de0| 30 4b 20 62 65 66 6f 72 | 65 0a 70 6f 69 6e 74 20 |0K befor|e.point |
|00000df0| 66 6f 72 20 75 70 70 65 | 72 63 61 73 65 20 68 65 |for uppe|rcase he|
|00000e00| 61 64 69 6e 67 73 20 73 | 74 61 72 74 69 6e 67 20 |adings s|tarting |
|00000e10| 69 6e 20 74 68 65 20 66 | 69 72 73 74 20 63 6f 6c |in the f|irst col|
|00000e20| 75 6d 6e 20 6f 72 0a 69 | 64 65 6e 74 69 66 69 65 |umn or.i|dentifie|
|00000e30| 72 73 20 66 6f 6c 6c 6f | 77 65 64 20 62 79 20 60 |rs follo|wed by `|
|00000e40| 3a 27 20 6f 72 20 60 3d | 27 2c 20 73 65 65 20 76 |:' or `=|', see v|
|00000e50| 61 72 69 61 62 6c 65 0a | 60 61 64 64 2d 6c 6f 67 |ariable.|`add-log|
|00000e60| 2d 63 75 72 72 65 6e 74 | 2d 64 65 66 75 6e 2d 68 |-current|-defun-h|
|00000e70| 65 61 64 65 72 2d 72 65 | 67 65 78 70 27 2e 0a 0a |eader-re|gexp'...|
|00000e80| 48 61 73 20 61 20 70 72 | 65 66 65 72 65 6e 63 65 |Has a pr|eference|
|00000e90| 20 6f 66 20 6c 6f 6f 6b | 69 6e 67 20 62 61 63 6b | of look|ing back|
|00000ea0| 77 61 72 64 73 2e 1f 0a | 28 61 75 74 6f 6c 6f 61 |wards...|(autoloa|
|00000eb0| 64 20 27 61 64 64 2d 6c | 6f 67 2d 63 75 72 72 65 |d 'add-l|og-curre|
|00000ec0| 6e 74 2d 64 65 66 75 6e | 20 22 61 64 64 2d 6c 6f |nt-defun| "add-lo|
|00000ed0| 67 22 20 27 28 23 24 20 | 2e 20 33 33 32 33 29 20 |g" '(#$ |. 3323) |
|00000ee0| 6e 69 6c 20 6e 69 6c 29 | 0a 28 66 73 65 74 20 27 |nil nil)|.(fset '|
|00000ef0| 63 6f 6d 6d 61 6e 64 2d | 61 70 72 6f 70 6f 73 20 |command-|apropos |
|00000f00| 27 61 70 72 6f 70 6f 73 | 2d 63 6f 6d 6d 61 6e 64 |'apropos|-command|
|00000f10| 29 0a 23 40 31 35 31 20 | 53 68 6f 77 73 20 63 6f |).#@151 |Shows co|
|00000f20| 6d 6d 61 6e 64 73 20 28 | 69 6e 74 65 72 61 63 74 |mmands (|interact|
|00000f30| 69 76 65 6c 79 20 63 61 | 6c 6c 61 62 6c 65 20 66 |ively ca|llable f|
|00000f40| 75 6e 63 74 69 6f 6e 73 | 29 20 74 68 61 74 20 6d |unctions|) that m|
|00000f50| 61 74 63 68 20 52 45 47 | 45 58 50 2e 0a 57 69 74 |atch REG|EXP..Wit|
|00000f60| 68 20 6f 70 74 69 6f 6e | 61 6c 20 70 72 65 66 69 |h option|al prefi|
|00000f70| 78 20 41 52 47 20 6f 72 | 20 69 66 20 60 61 70 72 |x ARG or| if `apr|
|00000f80| 6f 70 6f 73 2d 64 6f 2d | 61 6c 6c 27 20 69 73 20 |opos-do-|all' is |
|00000f90| 6e 6f 6e 2d 6e 69 6c 2c | 20 61 6c 73 6f 20 73 68 |non-nil,| also sh|
|00000fa0| 6f 77 0a 76 61 72 69 61 | 62 6c 65 73 2e 1f 0a 28 |ow.varia|bles...(|
|00000fb0| 61 75 74 6f 6c 6f 61 64 | 20 27 61 70 72 6f 70 6f |autoload| 'apropo|
|00000fc0| 73 2d 63 6f 6d 6d 61 6e | 64 20 22 61 70 72 6f 70 |s-comman|d "aprop|
|00000fd0| 6f 73 22 20 27 28 23 24 | 20 2e 20 33 38 36 34 29 |os" '(#$| . 3864)|
|00000fe0| 20 74 20 6e 69 6c 29 0a | 23 40 32 34 32 20 53 68 | t nil).|#@242 Sh|
|00000ff0| 6f 77 20 61 6c 6c 20 62 | 6f 75 6e 64 20 73 79 6d |ow all b|ound sym|
|00001000| 62 6f 6c 73 20 77 68 6f | 73 65 20 6e 61 6d 65 73 |bols who|se names|
|00001010| 20 6d 61 74 63 68 20 52 | 45 47 45 58 50 2e 0a 57 | match R|EGEXP..W|
|00001020| 69 74 68 20 6f 70 74 69 | 6f 6e 61 6c 20 70 72 65 |ith opti|onal pre|
|00001030| 66 69 78 20 41 52 47 20 | 6f 72 20 69 66 20 60 61 |fix ARG |or if `a|
|00001040| 70 72 6f 70 6f 73 2d 64 | 6f 2d 61 6c 6c 27 20 69 |propos-d|o-all' i|
|00001050| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 61 6c 73 6f 20 |s non-ni|l, also |
|00001060| 73 68 6f 77 20 75 6e 62 | 6f 75 6e 64 0a 73 79 6d |show unb|ound.sym|
|00001070| 62 6f 6c 73 20 61 6e 64 | 20 6b 65 79 20 62 69 6e |bols and| key bin|
|00001080| 64 69 6e 67 73 2c 20 77 | 68 69 63 68 20 69 73 20 |dings, w|hich is |
|00001090| 61 20 6c 69 74 74 6c 65 | 20 6d 6f 72 65 20 74 69 |a little| more ti|
|000010a0| 6d 65 2d 63 6f 6e 73 75 | 6d 69 6e 67 2e 0a 52 65 |me-consu|ming..Re|
|000010b0| 74 75 72 6e 73 20 6c 69 | 73 74 20 6f 66 20 73 79 |turns li|st of sy|
|000010c0| 6d 62 6f 6c 73 20 61 6e | 64 20 64 6f 63 75 6d 65 |mbols an|d docume|
|000010d0| 6e 74 61 74 69 6f 6e 20 | 66 6f 75 6e 64 2e 1f 0a |ntation |found...|
|000010e0| 28 61 75 74 6f 6c 6f 61 | 64 20 27 61 70 72 6f 70 |(autoloa|d 'aprop|
|000010f0| 6f 73 20 22 61 70 72 6f | 70 6f 73 22 20 27 28 23 |os "apro|pos" '(#|
|00001100| 24 20 2e 20 34 30 37 38 | 29 20 74 20 6e 69 6c 29 |$ . 4078|) t nil)|
|00001110| 0a 23 40 32 33 34 20 53 | 68 6f 77 20 61 6c 6c 20 |.#@234 S|how all |
|00001120| 73 79 6d 62 6f 6c 73 20 | 77 68 6f 73 65 20 76 61 |symbols |whose va|
|00001130| 6c 75 65 27 73 20 70 72 | 69 6e 74 65 64 20 69 6d |lue's pr|inted im|
|00001140| 61 67 65 20 6d 61 74 63 | 68 65 73 20 52 45 47 45 |age matc|hes REGE|
|00001150| 58 50 2e 0a 57 69 74 68 | 20 6f 70 74 69 6f 6e 61 |XP..With| optiona|
|00001160| 6c 20 70 72 65 66 69 78 | 20 41 52 47 20 6f 72 20 |l prefix| ARG or |
|00001170| 69 66 20 60 61 70 72 6f | 70 6f 73 2d 64 6f 2d 61 |if `apro|pos-do-a|
|00001180| 6c 6c 27 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |ll' is n|on-nil, |
|00001190| 61 6c 73 6f 20 6c 6f 6f | 6b 73 0a 61 74 20 74 68 |also loo|ks.at th|
|000011a0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 61 6e 64 20 61 |e functi|on and a|
|000011b0| 74 20 74 68 65 20 6e 61 | 6d 65 73 20 61 6e 64 20 |t the na|mes and |
|000011c0| 76 61 6c 75 65 73 20 6f | 66 20 70 72 6f 70 65 72 |values o|f proper|
|000011d0| 74 69 65 73 2e 0a 52 65 | 74 75 72 6e 73 20 6c 69 |ties..Re|turns li|
|000011e0| 73 74 20 6f 66 20 73 79 | 6d 62 6f 6c 73 20 61 6e |st of sy|mbols an|
|000011f0| 64 20 76 61 6c 75 65 73 | 20 66 6f 75 6e 64 2e 1f |d values| found..|
|00001200| 0a 28 61 75 74 6f 6c 6f | 61 64 20 27 61 70 72 6f |.(autolo|ad 'apro|
|00001210| 70 6f 73 2d 76 61 6c 75 | 65 20 22 61 70 72 6f 70 |pos-valu|e "aprop|
|00001220| 6f 73 22 20 27 28 23 24 | 20 2e 20 34 33 37 35 29 |os" '(#$| . 4375)|
|00001230| 20 74 20 6e 69 6c 29 0a | 23 40 32 36 32 20 53 68 | t nil).|#@262 Sh|
|00001240| 6f 77 20 73 79 6d 62 6f | 6c 73 20 77 68 6f 73 65 |ow symbo|ls whose|
|00001250| 20 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 63 | documen|tation c|
|00001260| 6f 6e 74 61 69 6e 20 6d | 61 74 63 68 65 73 20 66 |ontain m|atches f|
|00001270| 6f 72 20 52 45 47 45 58 | 50 2e 0a 57 69 74 68 20 |or REGEX|P..With |
|00001280| 6f 70 74 69 6f 6e 61 6c | 20 70 72 65 66 69 78 20 |optional| prefix |
|00001290| 41 52 47 20 6f 72 20 69 | 66 20 60 61 70 72 6f 70 |ARG or i|f `aprop|
|000012a0| 6f 73 2d 64 6f 2d 61 6c | 6c 27 20 69 73 20 6e 6f |os-do-al|l' is no|
|000012b0| 6e 2d 6e 69 6c 2c 20 61 | 6c 73 6f 20 75 73 65 0a |n-nil, a|lso use.|
|000012c0| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 74 68 |document|ation th|
|000012d0| 61 74 20 69 73 20 6e 6f | 74 20 73 74 6f 72 65 64 |at is no|t stored|
|000012e0| 20 69 6e 20 74 68 65 20 | 64 6f 63 75 6d 65 6e 74 | in the |document|
|000012f0| 61 74 69 6f 6e 20 66 69 | 6c 65 20 61 6e 64 20 73 |ation fi|le and s|
|00001300| 68 6f 77 20 6b 65 79 0a | 62 69 6e 64 69 6e 67 73 |how key.|bindings|
|00001310| 2e 0a 52 65 74 75 72 6e | 73 20 6c 69 73 74 20 6f |..Return|s list o|
|00001320| 66 20 73 79 6d 62 6f 6c | 73 20 61 6e 64 20 64 6f |f symbol|s and do|
|00001330| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 66 6f 75 6e |cumentat|ion foun|
|00001340| 64 2e 1f 0a 28 61 75 74 | 6f 6c 6f 61 64 20 27 61 |d...(aut|oload 'a|
|00001350| 70 72 6f 70 6f 73 2d 64 | 6f 63 75 6d 65 6e 74 61 |propos-d|ocumenta|
|00001360| 74 69 6f 6e 20 22 61 70 | 72 6f 70 6f 73 22 20 27 |tion "ap|ropos" '|
|00001370| 28 23 24 20 2e 20 34 36 | 37 30 29 20 74 20 6e 69 |(#$ . 46|70) t ni|
|00001380| 6c 29 0a 23 40 31 34 35 | 20 49 6e 73 65 72 74 20 |l).#@145| Insert |
|00001390| 64 65 66 61 75 6c 74 20 | 63 6f 6e 74 65 6e 74 73 |default |contents|
|000013a0| 20 69 6e 74 6f 20 61 20 | 6e 65 77 20 66 69 6c 65 | into a |new file|
|000013b0| 20 69 66 20 60 61 75 74 | 6f 2d 69 6e 73 65 72 74 | if `aut|o-insert|
|000013c0| 27 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2e 0a 4d 61 |' is non|-nil..Ma|
|000013d0| 74 63 68 65 73 20 74 68 | 65 20 76 69 73 69 74 65 |tches th|e visite|
|000013e0| 64 20 66 69 6c 65 20 6e | 61 6d 65 20 61 67 61 69 |d file n|ame agai|
|000013f0| 6e 73 74 20 74 68 65 20 | 65 6c 65 6d 65 6e 74 73 |nst the |elements|
|00001400| 20 6f 66 20 60 61 75 74 | 6f 2d 69 6e 73 65 72 74 | of `aut|o-insert|
|00001410| 2d 61 6c 69 73 74 27 2e | 1f 0a 28 61 75 74 6f 6c |-alist'.|..(autol|
|00001420| 6f 61 64 20 27 61 75 74 | 6f 2d 69 6e 73 65 72 74 |oad 'aut|o-insert|
|00001430| 20 22 61 75 74 6f 69 6e | 73 65 72 74 22 20 27 28 | "autoin|sert" '(|
|00001440| 23 24 20 2e 20 35 30 30 | 31 29 20 74 20 6e 69 6c |#$ . 500|1) t nil|
|00001450| 29 0a 23 40 32 31 30 20 | 41 73 73 6f 63 69 61 74 |).#@210 |Associat|
|00001460| 65 20 43 4f 4e 44 49 54 | 49 4f 4e 20 77 69 74 68 |e CONDIT|ION with|
|00001470| 20 28 61 64 64 69 74 69 | 6f 6e 61 6c 29 20 41 43 | (additi|onal) AC|
|00001480| 54 49 4f 4e 20 69 6e 20 | 60 61 75 74 6f 2d 69 6e |TION in |`auto-in|
|00001490| 73 65 72 74 2d 61 6c 69 | 73 74 27 2e 0a 4f 70 74 |sert-ali|st'..Opt|
|000014a0| 69 6f 6e 61 6c 20 41 46 | 54 45 52 20 6d 65 61 6e |ional AF|TER mean|
|000014b0| 73 20 74 6f 20 69 6e 73 | 65 72 74 20 61 63 74 69 |s to ins|ert acti|
|000014c0| 6f 6e 20 61 66 74 65 72 | 20 61 6c 6c 20 65 78 69 |on after| all exi|
|000014d0| 73 74 69 6e 67 20 61 63 | 74 69 6f 6e 73 20 66 6f |sting ac|tions fo|
|000014e0| 72 20 43 4f 4e 44 49 54 | 49 4f 4e 2c 0a 6f 72 20 |r CONDIT|ION,.or |
|000014f0| 69 66 20 43 4f 4e 44 49 | 54 49 4f 4e 20 68 61 64 |if CONDI|TION had|
|00001500| 20 6e 6f 20 61 63 74 69 | 6f 6e 73 2c 20 61 66 74 | no acti|ons, aft|
|00001510| 65 72 20 61 6c 6c 20 6f | 74 68 65 72 20 43 4f 4e |er all o|ther CON|
|00001520| 44 49 54 49 4f 4e 73 2e | 1f 0a 28 61 75 74 6f 6c |DITIONs.|..(autol|
|00001530| 6f 61 64 20 27 64 65 66 | 69 6e 65 2d 61 75 74 6f |oad 'def|ine-auto|
|00001540| 2d 69 6e 73 65 72 74 20 | 22 61 75 74 6f 69 6e 73 |-insert |"autoins|
|00001550| 65 72 74 22 20 27 28 23 | 24 20 2e 20 35 32 30 38 |ert" '(#|$ . 5208|
|00001560| 29 20 6e 69 6c 20 6e 69 | 6c 29 0a 28 63 75 73 74 |) nil ni|l).(cust|
|00001570| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00001580| 62 6c 65 20 27 6d 6f 75 | 73 65 2d 61 76 6f 69 64 |ble 'mou|se-avoid|
|00001590| 61 6e 63 65 2d 6d 6f 64 | 65 20 27 6e 69 6c 20 22 |ance-mod|e 'nil "|
|000015a0| 56 61 6c 75 65 20 69 73 | 20 74 20 6f 72 20 61 20 |Value is| t or a |
|000015b0| 73 79 6d 62 6f 6c 20 69 | 66 20 74 68 65 20 6d 6f |symbol i|f the mo|
|000015c0| 75 73 65 20 70 6f 69 6e | 74 65 72 20 73 68 6f 75 |use poin|ter shou|
|000015d0| 6c 64 20 61 76 6f 69 64 | 20 74 68 65 20 63 75 72 |ld avoid| the cur|
|000015e0| 73 6f 72 2e 5c 6e 53 65 | 65 20 66 75 6e 63 74 69 |sor.\nSe|e functi|
|000015f0| 6f 6e 20 60 6d 6f 75 73 | 65 2d 61 76 6f 69 64 61 |on `mous|e-avoida|
|00001600| 6e 63 65 2d 6d 6f 64 65 | 27 20 66 6f 72 20 70 6f |nce-mode|' for po|
|00001610| 73 73 69 62 6c 65 20 76 | 61 6c 75 65 73 2e 20 20 |ssible v|alues. |
|00001620| 43 68 61 6e 67 69 6e 67 | 20 74 68 69 73 5c 6e 76 |Changing| this\nv|
|00001630| 61 72 69 61 62 6c 65 20 | 69 73 20 4e 4f 54 20 74 |ariable |is NOT t|
|00001640| 68 65 20 72 65 63 6f 6d | 6d 65 6e 64 65 64 20 77 |he recom|mended w|
|00001650| 61 79 20 74 6f 20 63 68 | 61 6e 67 65 20 6d 6f 64 |ay to ch|ange mod|
|00001660| 65 73 3b 20 75 73 65 20 | 74 68 61 74 20 66 75 6e |es; use |that fun|
|00001670| 63 74 69 6f 6e 20 5c 6e | 69 6e 73 74 65 61 64 2e |ction \n|instead.|
|00001680| 22 20 3a 74 79 70 65 20 | 27 28 72 61 64 69 6f 20 |" :type |'(radio |
|00001690| 28 63 6f 6e 73 74 20 3a | 74 61 67 20 22 4e 6f 20 |(const :|tag "No |
|000016a0| 6d 6f 75 73 65 20 61 76 | 6f 69 64 61 6e 63 65 22 |mouse av|oidance"|
|000016b0| 20 6e 69 6c 29 20 28 63 | 6f 6e 73 74 20 3a 74 61 | nil) (c|onst :ta|
|000016c0| 67 20 22 4d 6f 76 65 20 | 74 68 65 20 6d 6f 75 73 |g "Move |the mous|
|000016d0| 65 20 6f 6e 20 6b 65 79 | 70 72 65 73 73 22 20 62 |e on key|press" b|
|000016e0| 61 6e 69 73 68 29 20 28 | 63 6f 6e 73 74 20 3a 74 |anish) (|const :t|
|000016f0| 61 67 20 22 4d 6f 76 65 | 20 74 68 65 20 6d 6f 75 |ag "Move| the mou|
|00001700| 73 65 20 69 66 20 74 68 | 65 20 63 75 72 73 6f 72 |se if th|e cursor|
|00001710| 20 67 65 74 73 20 74 6f | 6f 20 63 6c 6f 73 65 22 | gets to|o close"|
|00001720| 20 65 78 69 6c 65 29 20 | 28 63 6f 6e 73 74 20 3a | exile) |(const :|
|00001730| 74 61 67 20 22 44 69 73 | 70 6c 61 63 65 20 74 68 |tag "Dis|place th|
|00001740| 65 20 6d 6f 75 73 65 20 | 69 66 20 74 68 65 20 63 |e mouse |if the c|
|00001750| 75 72 73 6f 72 20 67 65 | 74 73 20 74 6f 6f 20 63 |ursor ge|ts too c|
|00001760| 6c 6f 73 65 22 20 6a 75 | 6d 70 29 20 28 63 6f 6e |lose" ju|mp) (con|
|00001770| 73 74 20 3a 74 61 67 20 | 22 41 6e 69 6d 61 74 65 |st :tag |"Animate|
|00001780| 20 74 68 65 20 6d 6f 75 | 73 65 22 20 61 6e 69 6d | the mou|se" anim|
|00001790| 61 74 65 29 20 28 63 6f | 6e 73 74 20 3a 74 61 67 |ate) (co|nst :tag|
|000017a0| 20 22 41 6e 69 6d 61 74 | 65 20 2b 20 63 68 61 6e | "Animat|e + chan|
|000017b0| 67 65 20 73 68 61 70 65 | 22 20 70 72 6f 74 65 75 |ge shape|" proteu|
|000017c0| 73 29 29 20 3a 73 65 74 | 20 28 6c 61 6d 62 64 61 |s)) :set| (lambda|
|000017d0| 20 28 73 79 6d 62 6f 6c | 20 76 61 6c 75 65 29 20 | (symbol| value) |
|000017e0| 28 6d 6f 75 73 65 2d 61 | 76 6f 69 64 61 6e 63 65 |(mouse-a|voidance|
|000017f0| 2d 6d 6f 64 65 20 28 6f | 72 20 76 61 6c 75 65 20 |-mode (o|r value |
|00001800| 27 6e 6f 6e 65 29 29 29 | 20 3a 69 6e 69 74 69 61 |'none)))| :initia|
|00001810| 6c 69 7a 65 20 27 63 75 | 73 74 6f 6d 2d 69 6e 69 |lize 'cu|stom-ini|
|00001820| 74 69 61 6c 69 7a 65 2d | 64 65 66 61 75 6c 74 20 |tialize-|default |
|00001830| 3a 72 65 71 75 69 72 65 | 20 27 61 76 6f 69 64 20 |:require| 'avoid |
|00001840| 3a 67 72 6f 75 70 20 27 | 61 76 6f 69 64 29 0a 23 |:group '|avoid).#|
|00001850| 40 31 31 32 32 20 53 65 | 74 20 63 75 72 73 6f 72 |@1122 Se|t cursor|
|00001860| 20 61 76 6f 69 64 61 6e | 63 65 20 6d 6f 64 65 20 | avoidan|ce mode |
|00001870| 74 6f 20 4d 4f 44 45 2e | 0a 4d 4f 44 45 20 73 68 |to MODE.|.MODE sh|
|00001880| 6f 75 6c 64 20 62 65 20 | 6f 6e 65 20 6f 66 20 74 |ould be |one of t|
|00001890| 68 65 20 73 79 6d 62 6f | 6c 73 20 60 62 61 6e 69 |he symbo|ls `bani|
|000018a0| 73 68 27 2c 20 60 65 78 | 69 6c 65 27 2c 20 60 6a |sh', `ex|ile', `j|
|000018b0| 75 6d 70 27 2c 20 60 61 | 6e 69 6d 61 74 65 27 2c |ump', `a|nimate',|
|000018c0| 0a 60 63 61 74 2d 61 6e | 64 2d 6d 6f 75 73 65 27 |.`cat-an|d-mouse'|
|000018d0| 2c 20 60 70 72 6f 74 65 | 75 73 27 2c 20 6f 72 20 |, `prote|us', or |
|000018e0| 60 6e 6f 6e 65 27 2e 0a | 0a 49 66 20 4d 4f 44 45 |`none'..|.If MODE|
|000018f0| 20 69 73 20 6e 69 6c 2c | 20 74 6f 67 67 6c 65 20 | is nil,| toggle |
|00001900| 6d 6f 75 73 65 20 61 76 | 6f 69 64 61 6e 63 65 20 |mouse av|oidance |
|00001910| 62 65 74 77 65 65 6e 20 | 60 6e 6f 6e 65 60 20 61 |between |`none` a|
|00001920| 6e 64 20 60 62 61 6e 69 | 73 68 27 0a 6d 6f 64 65 |nd `bani|sh'.mode|
|00001930| 73 2e 20 20 50 6f 73 69 | 74 69 76 65 20 6e 75 6d |s. Posi|tive num|
|00001940| 62 65 72 73 20 61 6e 64 | 20 73 79 6d 62 6f 6c 73 |bers and| symbols|
|00001950| 20 6f 74 68 65 72 20 74 | 68 61 6e 20 74 68 65 20 | other t|han the |
|00001960| 61 62 6f 76 65 20 61 72 | 65 20 74 72 65 61 74 65 |above ar|e treate|
|00001970| 64 0a 61 73 20 65 71 75 | 69 76 61 6c 65 6e 74 20 |d.as equ|ivalent |
|00001980| 74 6f 20 60 62 61 6e 69 | 73 68 27 3b 20 6e 65 67 |to `bani|sh'; neg|
|00001990| 61 74 69 76 65 20 6e 75 | 6d 62 65 72 73 20 61 6e |ative nu|mbers an|
|000019a0| 64 20 60 2d 27 20 61 72 | 65 20 65 71 75 69 76 61 |d `-' ar|e equiva|
|000019b0| 6c 65 6e 74 20 74 6f 20 | 60 6e 6f 6e 65 27 2e 0a |lent to |`none'..|
|000019c0| 0a 45 66 66 65 63 74 73 | 20 6f 66 20 74 68 65 20 |.Effects| of the |
|000019d0| 64 69 66 66 65 72 65 6e | 74 20 6d 6f 64 65 73 3a |differen|t modes:|
|000019e0| 20 0a 20 2a 20 62 61 6e | 69 73 68 3a 20 4d 6f 76 | . * ban|ish: Mov|
|000019f0| 65 20 74 68 65 20 6d 6f | 75 73 65 20 74 6f 20 74 |e the mo|use to t|
|00001a00| 68 65 20 75 70 70 65 72 | 2d 72 69 67 68 74 20 63 |he upper|-right c|
|00001a10| 6f 72 6e 65 72 20 6f 6e | 20 61 6e 79 20 6b 65 79 |orner on| any key|
|00001a20| 70 72 65 73 73 2e 0a 20 | 2a 20 65 78 69 6c 65 3a |press.. |* exile:|
|00001a30| 20 4d 6f 76 65 20 74 68 | 65 20 6d 6f 75 73 65 20 | Move th|e mouse |
|00001a40| 74 6f 20 74 68 65 20 63 | 6f 72 6e 65 72 20 6f 6e |to the c|orner on|
|00001a50| 6c 79 20 69 66 20 74 68 | 65 20 63 75 72 73 6f 72 |ly if th|e cursor|
|00001a60| 20 67 65 74 73 20 74 6f | 6f 20 63 6c 6f 73 65 2c | gets to|o close,|
|00001a70| 0a 20 20 20 20 20 61 6e | 64 20 61 6c 6c 6f 77 20 |. an|d allow |
|00001a80| 69 74 20 74 6f 20 72 65 | 74 75 72 6e 20 6f 6e 63 |it to re|turn onc|
|00001a90| 65 20 74 68 65 20 63 75 | 72 73 6f 72 20 69 73 20 |e the cu|rsor is |
|00001aa0| 6f 75 74 20 6f 66 20 74 | 68 65 20 77 61 79 2e 0a |out of t|he way..|
|00001ab0| 20 2a 20 6a 75 6d 70 3a | 20 49 66 20 74 68 65 20 | * jump:| If the |
|00001ac0| 63 75 72 73 6f 72 20 67 | 65 74 73 20 74 6f 6f 20 |cursor g|ets too |
|00001ad0| 63 6c 6f 73 65 20 74 6f | 20 74 68 65 20 6d 6f 75 |close to| the mou|
|00001ae0| 73 65 2c 20 64 69 73 70 | 6c 61 63 65 20 74 68 65 |se, disp|lace the|
|00001af0| 20 6d 6f 75 73 65 0a 20 | 20 20 20 20 61 20 72 61 | mouse. | a ra|
|00001b00| 6e 64 6f 6d 20 64 69 73 | 74 61 6e 63 65 20 26 20 |ndom dis|tance & |
|00001b10| 64 69 72 65 63 74 69 6f | 6e 2e 0a 20 2a 20 61 6e |directio|n.. * an|
|00001b20| 69 6d 61 74 65 3a 20 41 | 73 20 60 6a 75 6d 70 27 |imate: A|s `jump'|
|00001b30| 2c 20 62 75 74 20 73 68 | 6f 77 73 20 73 74 65 70 |, but sh|ows step|
|00001b40| 73 20 61 6c 6f 6e 67 20 | 74 68 65 20 77 61 79 20 |s along |the way |
|00001b50| 66 6f 72 20 69 6c 6c 75 | 73 69 6f 6e 20 6f 66 20 |for illu|sion of |
|00001b60| 6d 6f 74 69 6f 6e 2e 0a | 20 2a 20 63 61 74 2d 61 |motion..| * cat-a|
|00001b70| 6e 64 2d 6d 6f 75 73 65 | 3a 20 53 61 6d 65 20 61 |nd-mouse|: Same a|
|00001b80| 73 20 60 61 6e 69 6d 61 | 74 65 27 2e 0a 20 2a 20 |s `anima|te'.. * |
|00001b90| 70 72 6f 74 65 75 73 3a | 20 41 73 20 60 61 6e 69 |proteus:| As `ani|
|00001ba0| 6d 61 74 65 27 2c 20 62 | 75 74 20 63 68 61 6e 67 |mate', b|ut chang|
|00001bb0| 65 73 20 74 68 65 20 73 | 68 61 70 65 20 6f 66 20 |es the s|hape of |
|00001bc0| 74 68 65 20 6d 6f 75 73 | 65 20 70 6f 69 6e 74 65 |the mous|e pointe|
|00001bd0| 72 20 74 6f 6f 2e 0a 0a | 57 68 65 6e 65 76 65 72 |r too...|Whenever|
|00001be0| 20 74 68 65 20 6d 6f 75 | 73 65 20 69 73 20 6d 6f | the mou|se is mo|
|00001bf0| 76 65 64 2c 20 74 68 65 | 20 66 72 61 6d 65 20 69 |ved, the| frame i|
|00001c00| 73 20 61 6c 73 6f 20 72 | 61 69 73 65 64 2e 0a 0a |s also r|aised...|
|00001c10| 28 73 65 65 20 60 6d 6f | 75 73 65 2d 61 76 6f 69 |(see `mo|use-avoi|
|00001c20| 64 61 6e 63 65 2d 74 68 | 72 65 73 68 6f 6c 64 27 |dance-th|reshold'|
|00001c30| 20 66 6f 72 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 | for def|inition |
|00001c40| 6f 66 20 22 74 6f 6f 20 | 63 6c 6f 73 65 22 2c 0a |of "too |close",.|
|00001c50| 61 6e 64 20 60 6d 6f 75 | 73 65 2d 61 76 6f 69 64 |and `mou|se-avoid|
|00001c60| 61 6e 63 65 2d 6e 75 64 | 67 65 2d 64 69 73 74 27 |ance-nud|ge-dist'|
|00001c70| 20 61 6e 64 20 60 6d 6f | 75 73 65 2d 61 76 6f 69 | and `mo|use-avoi|
|00001c80| 64 61 6e 63 65 2d 6e 75 | 64 67 65 2d 76 61 72 27 |dance-nu|dge-var'|
|00001c90| 20 66 6f 72 0a 64 65 66 | 69 6e 69 74 69 6f 6e 20 | for.def|inition |
|00001ca0| 6f 66 20 22 72 61 6e 64 | 6f 6d 20 64 69 73 74 61 |of "rand|om dista|
|00001cb0| 6e 63 65 22 2e 29 1f 0a | 28 61 75 74 6f 6c 6f 61 |nce".)..|(autoloa|
|00001cc0| 64 20 27 6d 6f 75 73 65 | 2d 61 76 6f 69 64 61 6e |d 'mouse|-avoidan|
|00001cd0| 63 65 2d 6d 6f 64 65 20 | 22 61 76 6f 69 64 22 20 |ce-mode |"avoid" |
|00001ce0| 27 28 23 24 20 2e 20 36 | 32 33 30 29 20 74 20 6e |'(#$ . 6|230) t n|
|00001cf0| 69 6c 29 0a 28 61 64 64 | 2d 6d 69 6e 6f 72 2d 6d |il).(add|-minor-m|
|00001d00| 6f 64 65 20 27 6d 6f 75 | 73 65 2d 61 76 6f 69 64 |ode 'mou|se-avoid|
|00001d10| 61 6e 63 65 2d 6d 6f 64 | 65 20 22 20 41 76 6f 69 |ance-mod|e " Avoi|
|00001d20| 64 22 29 0a 23 40 32 35 | 36 20 45 6e 61 62 6c 65 |d").#@25|6 Enable|
|00001d30| 20 6f 72 20 64 69 73 61 | 62 6c 65 20 61 20 62 6c | or disa|ble a bl|
|00001d40| 69 6e 6b 69 6e 67 20 63 | 75 72 73 6f 72 2e 0a 49 |inking c|ursor..I|
|00001d50| 66 20 54 49 4d 45 4f 55 | 54 20 69 73 20 6e 69 6c |f TIMEOU|T is nil|
|00001d60| 2c 20 74 6f 67 67 6c 65 | 20 6f 6e 20 6f 72 20 6f |, toggle| on or o|
|00001d70| 66 66 2e 0a 49 66 20 54 | 49 4d 45 4f 55 54 20 69 |ff..If T|IMEOUT i|
|00001d80| 73 20 74 2c 20 65 6e 61 | 62 6c 65 20 77 69 74 68 |s t, ena|ble with|
|00001d90| 20 74 68 65 20 70 72 65 | 76 69 6f 75 73 20 74 69 | the pre|vious ti|
|00001da0| 6d 65 6f 75 74 20 76 61 | 6c 75 65 2e 0a 49 66 20 |meout va|lue..If |
|00001db0| 54 49 4d 45 4f 55 54 20 | 69 73 20 30 2c 20 64 69 |TIMEOUT |is 0, di|
|00001dc0| 73 61 62 6c 65 2e 0a 49 | 66 20 54 49 4d 45 4f 55 |sable..I|f TIMEOU|
|00001dd0| 54 20 69 73 20 67 72 65 | 61 74 65 72 20 74 68 61 |T is gre|ater tha|
|00001de0| 6e 20 30 2c 20 74 68 65 | 6e 20 74 68 65 20 63 75 |n 0, the|n the cu|
|00001df0| 72 73 6f 72 20 77 69 6c | 6c 20 62 6c 69 6e 6b 20 |rsor wil|l blink |
|00001e00| 6f 6e 63 65 0a 65 61 63 | 68 20 54 49 4d 45 4f 55 |once.eac|h TIMEOU|
|00001e10| 54 20 73 65 63 73 20 28 | 63 61 6e 20 62 65 20 61 |T secs (|can be a|
|00001e20| 20 66 6c 6f 61 74 29 2e | 1f 0a 28 61 75 74 6f 6c | float).|..(autol|
|00001e30| 6f 61 64 20 27 62 6c 69 | 6e 6b 2d 63 75 72 73 6f |oad 'bli|nk-curso|
|00001e40| 72 2d 6d 6f 64 65 20 22 | 62 6c 69 6e 6b 2d 63 75 |r-mode "|blink-cu|
|00001e50| 72 73 6f 72 22 20 27 28 | 23 24 20 2e 20 37 34 36 |rsor" '(|#$ . 746|
|00001e60| 36 29 20 74 20 6e 69 6c | 29 0a 28 62 79 74 65 2d |6) t nil|).(byte-|
|00001e70| 63 6f 64 65 20 22 c0 c1 | 21 39 ac 92 c2 0b c4 c5 |code "..|!9......|
|00001e80| 23 88 c2 0b c6 c7 23 88 | c2 0b c8 c9 23 88 c0 87 |#.....#.|....#...|
|00001e90| 22 20 5b 6b 65 79 2d 62 | 69 6e 64 69 6e 67 20 22 |" [key-b|inding "|
|00001ea0| 18 72 22 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 63 |.r" defi|ne-key c|
|00001eb0| 74 6c 2d 78 2d 6d 61 70 | 20 22 72 62 22 20 62 6f |tl-x-map| "rb" bo|
|00001ec0| 6f 6b 6d 61 72 6b 2d 6a | 75 6d 70 20 22 72 6d 22 |okmark-j|ump "rm"|
|00001ed0| 20 62 6f 6f 6b 6d 61 72 | 6b 2d 73 65 74 20 22 72 | bookmar|k-set "r|
|00001ee0| 6c 22 20 62 6f 6f 6b 6d | 61 72 6b 2d 62 6d 65 6e |l" bookm|ark-bmen|
|00001ef0| 75 2d 6c 69 73 74 5d 20 | 34 29 0a 23 40 32 37 39 |u-list] |4).#@279|
|00001f00| 20 4b 65 79 6d 61 70 20 | 63 6f 6e 74 61 69 6e 69 | Keymap |containi|
|00001f10| 6e 67 20 62 69 6e 64 69 | 6e 67 73 20 74 6f 20 62 |ng bindi|ngs to b|
|00001f20| 6f 6f 6b 6d 61 72 6b 20 | 66 75 6e 63 74 69 6f 6e |ookmark |function|
|00001f30| 73 2e 0a 49 74 20 69 73 | 20 6e 6f 74 20 62 6f 75 |s..It is| not bou|
|00001f40| 6e 64 20 74 6f 20 61 6e | 79 20 6b 65 79 20 62 79 |nd to an|y key by|
|00001f50| 20 64 65 66 61 75 6c 74 | 3a 20 74 6f 20 62 69 6e | default|: to bin|
|00001f60| 64 20 69 74 0a 73 6f 20 | 74 68 61 74 20 79 6f 75 |d it.so |that you|
|00001f70| 20 68 61 76 65 20 61 20 | 62 6f 6f 6b 6d 61 72 6b | have a |bookmark|
|00001f80| 20 70 72 65 66 69 78 2c | 20 6a 75 73 74 20 75 73 | prefix,| just us|
|00001f90| 65 20 60 67 6c 6f 62 61 | 6c 2d 73 65 74 2d 6b 65 |e `globa|l-set-ke|
|00001fa0| 79 27 20 61 6e 64 20 62 | 69 6e 64 20 61 0a 6b 65 |y' and b|ind a.ke|
|00001fb0| 79 20 6f 66 20 79 6f 75 | 72 20 63 68 6f 69 63 65 |y of you|r choice|
|00001fc0| 20 74 6f 20 60 62 6f 6f | 6b 6d 61 72 6b 2d 6d 61 | to `boo|kmark-ma|
|00001fd0| 70 27 2e 20 20 41 6c 6c | 20 69 6e 74 65 72 61 63 |p'. All| interac|
|00001fe0| 74 69 76 65 20 62 6f 6f | 6b 6d 61 72 6b 0a 66 75 |tive boo|kmark.fu|
|00001ff0| 6e 63 74 69 6f 6e 73 20 | 68 61 76 65 20 61 20 62 |nctions |have a b|
|00002000| 69 6e 64 69 6e 67 20 69 | 6e 20 74 68 69 73 20 6b |inding i|n this k|
|00002010| 65 79 6d 61 70 2e 1f 0a | 28 64 65 66 76 61 72 20 |eymap...|(defvar |
|00002020| 62 6f 6f 6b 6d 61 72 6b | 2d 6d 61 70 20 6e 69 6c |bookmark|-map nil|
|00002030| 20 28 23 24 20 2e 20 37 | 39 33 37 29 29 0a 28 62 | (#$ . 7|937)).(b|
|00002040| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c2 09 |yte-code| "..!...|
|00002050| c3 c4 23 88 c2 09 c5 c4 | 23 88 c2 09 c6 c7 23 88 |..#.....|#.....#.|
|00002060| c2 09 c8 c7 23 88 c2 09 | c9 ca 23 88 c2 09 cb cc |....#...|..#.....|
|00002070| 23 88 c2 09 cd ce 23 88 | c2 09 cf d0 23 88 c2 09 |#.....#.|....#...|
|00002080| d1 d2 23 88 c2 09 d3 d4 | 23 88 c2 09 d5 d6 23 88 |..#.....|#.....#.|
|00002090| c2 09 d7 d8 23 88 d9 da | db 5c 22 87 22 20 5b 64 |....#...|.\"." [d|
|000020a0| 65 66 69 6e 65 2d 70 72 | 65 66 69 78 2d 63 6f 6d |efine-pr|efix-com|
|000020b0| 6d 61 6e 64 20 62 6f 6f | 6b 6d 61 72 6b 2d 6d 61 |mand boo|kmark-ma|
|000020c0| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 78 22 |p define|-key "x"|
|000020d0| 20 62 6f 6f 6b 6d 61 72 | 6b 2d 73 65 74 20 22 6d | bookmar|k-set "m|
|000020e0| 22 20 22 6a 22 20 62 6f | 6f 6b 6d 61 72 6b 2d 6a |" "j" bo|okmark-j|
|000020f0| 75 6d 70 20 22 67 22 20 | 22 69 22 20 62 6f 6f 6b |ump "g" |"i" book|
|00002100| 6d 61 72 6b 2d 69 6e 73 | 65 72 74 20 22 65 22 20 |mark-ins|ert "e" |
|00002110| 65 64 69 74 2d 62 6f 6f | 6b 6d 61 72 6b 73 20 22 |edit-boo|kmarks "|
|00002120| 66 22 20 62 6f 6f 6b 6d | 61 72 6b 2d 69 6e 73 65 |f" bookm|ark-inse|
|00002130| 72 74 2d 6c 6f 63 61 74 | 69 6f 6e 20 22 72 22 20 |rt-locat|ion "r" |
|00002140| 62 6f 6f 6b 6d 61 72 6b | 2d 72 65 6e 61 6d 65 20 |bookmark|-rename |
|00002150| 22 64 22 20 62 6f 6f 6b | 6d 61 72 6b 2d 64 65 6c |"d" book|mark-del|
|00002160| 65 74 65 20 22 6c 22 20 | 62 6f 6f 6b 6d 61 72 6b |ete "l" |bookmark|
|00002170| 2d 6c 6f 61 64 20 22 77 | 22 20 62 6f 6f 6b 6d 61 |-load "w|" bookma|
|00002180| 72 6b 2d 77 72 69 74 65 | 20 22 73 22 20 62 6f 6f |rk-write| "s" boo|
|00002190| 6b 6d 61 72 6b 2d 73 61 | 76 65 20 61 64 64 2d 68 |kmark-sa|ve add-h|
|000021a0| 6f 6f 6b 20 6b 69 6c 6c | 2d 65 6d 61 63 73 2d 68 |ook kill|-emacs-h|
|000021b0| 6f 6f 6b 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 ad 8a |ook #[ni|l "..!..|
|000021c0| 5c 6e ad 87 c3 c4 21 ad | 82 c5 20 87 22 20 5b 66 |\n....!.|.. ." [f|
|000021d0| 65 61 74 75 72 65 70 20 | 62 6f 6f 6b 6d 61 72 6b |eaturep |bookmark|
|000021e0| 20 62 6f 6f 6b 6d 61 72 | 6b 2d 61 6c 69 73 74 20 | bookmar|k-alist |
|000021f0| 62 6f 6f 6b 6d 61 72 6b | 2d 74 69 6d 65 2d 74 6f |bookmark|-time-to|
|00002200| 2d 73 61 76 65 2d 70 20 | 74 20 62 6f 6f 6b 6d 61 |-save-p |t bookma|
|00002210| 72 6b 2d 73 61 76 65 5d | 20 32 5d 5d 20 34 29 0a |rk-save]| 2]] 4).|
|00002220| 23 40 34 36 20 52 65 74 | 75 72 6e 20 61 20 6c 69 |#@46 Ret|urn a li|
|00002230| 73 74 20 6f 66 20 61 6c | 6c 20 63 75 72 72 65 6e |st of al|l curren|
|00002240| 74 20 62 6f 6f 6b 6d 61 | 72 6b 20 6e 61 6d 65 73 |t bookma|rk names|
|00002250| 2e 1f 0a 28 61 75 74 6f | 6c 6f 61 64 20 27 62 6f |...(auto|load 'bo|
|00002260| 6f 6b 6d 61 72 6b 2d 61 | 6c 6c 2d 6e 61 6d 65 73 |okmark-a|ll-names|
|00002270| 20 22 62 6f 6f 6b 6d 61 | 72 6b 22 20 27 28 23 24 | "bookma|rk" '(#$|
|00002280| 20 2e 20 38 37 34 31 29 | 20 6e 69 6c 20 6e 69 6c | . 8741)| nil nil|
|00002290| 29 0a 23 40 31 30 30 39 | 20 53 65 74 20 61 20 62 |).#@1009| Set a b|
|000022a0| 6f 6f 6b 6d 61 72 6b 20 | 6e 61 6d 65 64 20 4e 41 |ookmark |named NA|
|000022b0| 4d 45 20 69 6e 73 69 64 | 65 20 61 20 66 69 6c 65 |ME insid|e a file|
|000022c0| 2e 0a 49 66 20 6e 61 6d | 65 20 69 73 20 6e 69 6c |..If nam|e is nil|
|000022d0| 2c 20 74 68 65 6e 20 74 | 68 65 20 75 73 65 72 20 |, then t|he user |
|000022e0| 77 69 6c 6c 20 62 65 20 | 70 72 6f 6d 70 74 65 64 |will be |prompted|
|000022f0| 2e 0a 57 69 74 68 20 70 | 72 65 66 69 78 20 61 72 |..With p|refix ar|
|00002300| 67 2c 20 77 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |g, will |not over|
|00002310| 77 72 69 74 65 20 61 20 | 62 6f 6f 6b 6d 61 72 6b |write a |bookmark|
|00002320| 20 74 68 61 74 20 68 61 | 73 20 74 68 65 20 73 61 | that ha|s the sa|
|00002330| 6d 65 20 6e 61 6d 65 0a | 61 73 20 4e 41 4d 45 20 |me name.|as NAME |
|00002340| 69 66 20 73 75 63 68 20 | 61 20 62 6f 6f 6b 6d 61 |if such |a bookma|
|00002350| 72 6b 20 61 6c 72 65 61 | 64 79 20 65 78 69 73 74 |rk alrea|dy exist|
|00002360| 73 2c 20 62 75 74 20 69 | 6e 73 74 65 61 64 20 77 |s, but i|nstead w|
|00002370| 69 6c 6c 20 22 70 75 73 | 68 22 0a 74 68 65 20 6e |ill "pus|h".the n|
|00002380| 65 77 20 62 6f 6f 6b 6d | 61 72 6b 20 6f 6e 74 6f |ew bookm|ark onto|
|00002390| 20 74 68 65 20 62 6f 6f | 6b 6d 61 72 6b 20 61 6c | the boo|kmark al|
|000023a0| 69 73 74 2e 20 20 54 68 | 75 73 20 74 68 65 20 6d |ist. Th|us the m|
|000023b0| 6f 73 74 20 72 65 63 65 | 6e 74 6c 79 20 73 65 74 |ost rece|ntly set|
|000023c0| 0a 62 6f 6f 6b 6d 61 72 | 6b 20 77 69 74 68 20 6e |.bookmar|k with n|
|000023d0| 61 6d 65 20 4e 41 4d 45 | 20 77 6f 75 6c 64 20 62 |ame NAME| would b|
|000023e0| 65 20 74 68 65 20 6f 6e | 65 20 69 6e 20 65 66 66 |e the on|e in eff|
|000023f0| 65 63 74 20 61 74 20 61 | 6e 79 20 67 69 76 65 6e |ect at a|ny given|
|00002400| 20 74 69 6d 65 2c 0a 62 | 75 74 20 74 68 65 20 6f | time,.b|ut the o|
|00002410| 74 68 65 72 73 20 61 72 | 65 20 73 74 69 6c 6c 20 |thers ar|e still |
|00002420| 74 68 65 72 65 2c 20 73 | 68 6f 75 6c 64 20 79 6f |there, s|hould yo|
|00002430| 75 20 64 65 63 69 64 65 | 20 74 6f 20 64 65 6c 65 |u decide| to dele|
|00002440| 74 65 20 74 68 65 20 6d | 6f 73 74 0a 72 65 63 65 |te the m|ost.rece|
|00002450| 6e 74 20 6f 6e 65 2e 0a | 0a 54 6f 20 79 61 6e 6b |nt one..|.To yank|
|00002460| 20 77 6f 72 64 73 20 66 | 72 6f 6d 20 74 68 65 20 | words f|rom the |
|00002470| 74 65 78 74 20 6f 66 20 | 74 68 65 20 62 75 66 66 |text of |the buff|
|00002480| 65 72 20 61 6e 64 20 75 | 73 65 20 74 68 65 6d 20 |er and u|se them |
|00002490| 61 73 20 70 61 72 74 20 | 6f 66 20 74 68 65 0a 62 |as part |of the.b|
|000024a0| 6f 6f 6b 6d 61 72 6b 20 | 6e 61 6d 65 2c 20 74 79 |ookmark |name, ty|
|000024b0| 70 65 20 43 2d 77 20 77 | 68 69 6c 65 20 73 65 74 |pe C-w w|hile set|
|000024c0| 74 69 6e 67 20 61 20 62 | 6f 6f 6b 6d 61 72 6b 2e |ting a b|ookmark.|
|000024d0| 20 20 53 75 63 63 65 73 | 73 69 76 65 20 43 2d 77 | Succes|sive C-w|
|000024e0| 27 73 0a 79 61 6e 6b 20 | 73 75 63 63 65 73 73 69 |'s.yank |successi|
|000024f0| 76 65 20 77 6f 72 64 73 | 2e 0a 0a 54 79 70 69 6e |ve words|...Typin|
|00002500| 67 20 43 2d 75 20 69 6e | 73 65 72 74 73 20 74 68 |g C-u in|serts th|
|00002510| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 6c 61 |e name o|f the la|
|00002520| 73 74 20 62 6f 6f 6b 6d | 61 72 6b 20 75 73 65 64 |st bookm|ark used|
|00002530| 20 69 6e 20 74 68 65 20 | 62 75 66 66 65 72 0a 28 | in the |buffer.(|
|00002540| 61 73 20 61 6e 20 61 69 | 64 20 69 6e 20 75 73 69 |as an ai|d in usi|
|00002550| 6e 67 20 61 20 73 69 6e | 67 6c 65 20 62 6f 6f 6b |ng a sin|gle book|
|00002560| 6d 61 72 6b 20 6e 61 6d | 65 20 74 6f 20 74 72 61 |mark nam|e to tra|
|00002570| 63 6b 20 79 6f 75 72 20 | 70 72 6f 67 72 65 73 73 |ck your |progress|
|00002580| 0a 74 68 72 6f 75 67 68 | 20 61 20 6c 61 72 67 65 |.through| a large|
|00002590| 20 66 69 6c 65 29 2e 20 | 20 49 66 20 6e 6f 20 62 | file). | If no b|
|000025a0| 6f 6f 6b 6d 61 72 6b 20 | 77 61 73 20 75 73 65 64 |ookmark |was used|
|000025b0| 2c 20 74 68 65 6e 20 43 | 2d 75 20 69 6e 73 65 72 |, then C|-u inser|
|000025c0| 74 73 20 74 68 65 0a 6e | 61 6d 65 20 6f 66 20 74 |ts the.n|ame of t|
|000025d0| 68 65 20 66 69 6c 65 20 | 62 65 69 6e 67 20 76 69 |he file |being vi|
|000025e0| 73 69 74 65 64 2e 0a 0a | 55 73 65 20 5c 5b 62 6f |sited...|Use \[bo|
|000025f0| 6f 6b 6d 61 72 6b 2d 64 | 65 6c 65 74 65 5d 20 74 |okmark-d|elete] t|
|00002600| 6f 20 72 65 6d 6f 76 65 | 20 62 6f 6f 6b 6d 61 72 |o remove| bookmar|
|00002610| 6b 73 20 28 79 6f 75 20 | 67 69 76 65 20 69 74 20 |ks (you |give it |
|00002620| 61 20 6e 61 6d 65 2c 0a | 61 6e 64 20 69 74 20 72 |a name,.|and it r|
|00002630| 65 6d 6f 76 65 73 20 6f | 6e 6c 79 20 74 68 65 20 |emoves o|nly the |
|00002640| 66 69 72 73 74 20 69 6e | 73 74 61 6e 63 65 20 6f |first in|stance o|
|00002650| 66 20 61 20 62 6f 6f 6b | 6d 61 72 6b 20 77 69 74 |f a book|mark wit|
|00002660| 68 20 74 68 61 74 20 6e | 61 6d 65 20 66 72 6f 6d |h that n|ame from|
|00002670| 0a 74 68 65 20 6c 69 73 | 74 20 6f 66 20 62 6f 6f |.the lis|t of boo|
|00002680| 6b 6d 61 72 6b 73 2e 29 | 1f 0a 28 61 75 74 6f 6c |kmarks.)|..(autol|
|00002690| 6f 61 64 20 27 62 6f 6f | 6b 6d 61 72 6b 2d 73 65 |oad 'boo|kmark-se|
|000026a0| 74 20 22 62 6f 6f 6b 6d | 61 72 6b 22 20 27 28 23 |t "bookm|ark" '(#|
|000026b0| 24 20 2e 20 38 38 35 37 | 29 20 74 20 6e 69 6c 29 |$ . 8857|) t nil)|
|000026c0| 0a 23 40 35 31 36 20 4a | 75 6d 70 20 74 6f 20 62 |.#@516 J|ump to b|
|000026d0| 6f 6f 6b 6d 61 72 6b 20 | 42 4f 4f 4b 4d 41 52 4b |ookmark |BOOKMARK|
|000026e0| 20 28 61 20 70 6f 69 6e | 74 20 69 6e 20 73 6f 6d | (a poin|t in som|
|000026f0| 65 20 66 69 6c 65 29 2e | 20 20 0a 59 6f 75 20 6d |e file).| .You m|
|00002700| 61 79 20 68 61 76 65 20 | 61 20 70 72 6f 62 6c 65 |ay have |a proble|
|00002710| 6d 20 75 73 69 6e 67 20 | 74 68 69 73 20 66 75 6e |m using |this fun|
|00002720| 63 74 69 6f 6e 20 69 66 | 20 74 68 65 20 76 61 6c |ction if| the val|
|00002730| 75 65 20 6f 66 20 76 61 | 72 69 61 62 6c 65 0a 60 |ue of va|riable.`|
|00002740| 62 6f 6f 6b 6d 61 72 6b | 2d 61 6c 69 73 74 27 20 |bookmark|-alist' |
|00002750| 69 73 20 6e 69 6c 2e 20 | 20 49 66 20 74 68 61 74 |is nil. | If that|
|00002760| 20 68 61 70 70 65 6e 73 | 2c 20 79 6f 75 20 6e 65 | happens|, you ne|
|00002770| 65 64 20 74 6f 20 6c 6f | 61 64 20 69 6e 20 73 6f |ed to lo|ad in so|
|00002780| 6d 65 0a 62 6f 6f 6b 6d | 61 72 6b 73 2e 20 20 53 |me.bookm|arks. S|
|00002790| 65 65 20 68 65 6c 70 20 | 6f 6e 20 66 75 6e 63 74 |ee help |on funct|
|000027a0| 69 6f 6e 20 60 62 6f 6f | 6b 6d 61 72 6b 2d 6c 6f |ion `boo|kmark-lo|
|000027b0| 61 64 27 20 66 6f 72 20 | 6d 6f 72 65 20 61 62 6f |ad' for |more abo|
|000027c0| 75 74 0a 74 68 69 73 2e | 0a 0a 49 66 20 74 68 65 |ut.this.|..If the|
|000027d0| 20 66 69 6c 65 20 70 6f | 69 6e 74 65 64 20 74 6f | file po|inted to|
|000027e0| 20 62 79 20 42 4f 4f 4b | 4d 41 52 4b 20 6e 6f 20 | by BOOK|MARK no |
|000027f0| 6c 6f 6e 67 65 72 20 65 | 78 69 73 74 73 2c 20 79 |longer e|xists, y|
|00002800| 6f 75 20 77 69 6c 6c 20 | 62 65 20 61 73 6b 65 64 |ou will |be asked|
|00002810| 0a 69 66 20 79 6f 75 20 | 77 69 73 68 20 74 6f 20 |.if you |wish to |
|00002820| 67 69 76 65 20 74 68 65 | 20 62 6f 6f 6b 6d 61 72 |give the| bookmar|
|00002830| 6b 20 61 20 6e 65 77 20 | 6c 6f 63 61 74 69 6f 6e |k a new |location|
|00002840| 2c 20 61 6e 64 20 62 6f | 6f 6b 6d 61 72 6b 2d 6a |, and bo|okmark-j|
|00002850| 75 6d 70 0a 77 69 6c 6c | 20 74 68 65 6e 20 6a 75 |ump.will| then ju|
|00002860| 6d 70 20 74 6f 20 74 68 | 65 20 6e 65 77 20 6c 6f |mp to th|e new lo|
|00002870| 63 61 74 69 6f 6e 2c 20 | 61 73 20 77 65 6c 6c 20 |cation, |as well |
|00002880| 61 73 20 72 65 63 6f 72 | 64 69 6e 67 20 69 74 20 |as recor|ding it |
|00002890| 69 6e 20 70 6c 61 63 65 | 0a 6f 66 20 74 68 65 20 |in place|.of the |
|000028a0| 6f 6c 64 20 6f 6e 65 20 | 69 6e 20 74 68 65 20 70 |old one |in the p|
|000028b0| 65 72 6d 61 6e 65 6e 74 | 20 62 6f 6f 6b 6d 61 72 |ermanent| bookmar|
|000028c0| 6b 20 72 65 63 6f 72 64 | 2e 1f 0a 28 61 75 74 6f |k record|...(auto|
|000028d0| 6c 6f 61 64 20 27 62 6f | 6f 6b 6d 61 72 6b 2d 6a |load 'bo|okmark-j|
|000028e0| 75 6d 70 20 22 62 6f 6f | 6b 6d 61 72 6b 22 20 27 |ump "boo|kmark" '|
|000028f0| 28 23 24 20 2e 20 39 39 | 32 37 29 20 74 20 6e 69 |(#$ . 99|27) t ni|
|00002900| 6c 29 0a 23 40 32 34 31 | 20 52 65 6c 6f 63 61 74 |l).#@241| Relocat|
|00002910| 65 20 42 4f 4f 4b 4d 41 | 52 4b 20 74 6f 20 61 6e |e BOOKMA|RK to an|
|00002920| 6f 74 68 65 72 20 66 69 | 6c 65 20 28 72 65 61 64 |other fi|le (read|
|00002930| 69 6e 67 20 66 69 6c 65 | 20 6e 61 6d 65 20 77 69 |ing file| name wi|
|00002940| 74 68 20 6d 69 6e 69 62 | 75 66 66 65 72 29 2e 0a |th minib|uffer)..|
|00002950| 54 68 69 73 20 6d 61 6b | 65 73 20 61 6e 20 61 6c |This mak|es an al|
|00002960| 72 65 61 64 79 20 65 78 | 69 73 74 69 6e 67 20 62 |ready ex|isting b|
|00002970| 6f 6f 6b 6d 61 72 6b 20 | 70 6f 69 6e 74 20 74 6f |ookmark |point to|
|00002980| 20 74 68 61 74 20 66 69 | 6c 65 2c 20 69 6e 73 74 | that fi|le, inst|
|00002990| 65 61 64 20 6f 66 0a 74 | 68 65 20 6f 6e 65 20 69 |ead of.t|he one i|
|000029a0| 74 20 75 73 65 64 20 74 | 6f 20 70 6f 69 6e 74 20 |t used t|o point |
|000029b0| 61 74 2e 20 20 55 73 65 | 66 75 6c 20 77 68 65 6e |at. Use|ful when|
|000029c0| 20 61 20 66 69 6c 65 20 | 68 61 73 20 62 65 65 6e | a file |has been|
|000029d0| 20 72 65 6e 61 6d 65 64 | 0a 61 66 74 65 72 20 61 | renamed|.after a|
|000029e0| 20 62 6f 6f 6b 6d 61 72 | 6b 20 77 61 73 20 73 65 | bookmar|k was se|
|000029f0| 74 20 69 6e 20 69 74 2e | 1f 0a 28 61 75 74 6f 6c |t in it.|..(autol|
|00002a00| 6f 61 64 20 27 62 6f 6f | 6b 6d 61 72 6b 2d 72 65 |oad 'boo|kmark-re|
|00002a10| 6c 6f 63 61 74 65 20 22 | 62 6f 6f 6b 6d 61 72 6b |locate "|bookmark|
|00002a20| 22 20 27 28 23 24 20 2e | 20 31 30 35 30 35 29 20 |" '(#$ .| 10505) |
|00002a30| 74 20 6e 69 6c 29 0a 23 | 40 31 36 31 20 49 6e 73 |t nil).#|@161 Ins|
|00002a40| 65 72 74 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |ert the |name of |
|00002a50| 74 68 65 20 66 69 6c 65 | 20 61 73 73 6f 63 69 61 |the file| associa|
|00002a60| 74 65 64 20 77 69 74 68 | 20 42 4f 4f 4b 4d 41 52 |ted with| BOOKMAR|
|00002a70| 4b 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 73 65 63 6f |K..Optio|nal seco|
|00002a80| 6e 64 20 61 72 67 20 4e | 4f 2d 48 49 53 54 4f 52 |nd arg N|O-HISTOR|
|00002a90| 59 20 6d 65 61 6e 73 20 | 64 6f 6e 27 74 20 72 65 |Y means |don't re|
|00002aa0| 63 6f 72 64 20 74 68 69 | 73 20 69 6e 20 74 68 65 |cord thi|s in the|
|00002ab0| 0a 6d 69 6e 69 62 75 66 | 66 65 72 20 68 69 73 74 |.minibuf|fer hist|
|00002ac0| 6f 72 79 20 6c 69 73 74 | 20 60 62 6f 6f 6b 6d 61 |ory list| `bookma|
|00002ad0| 72 6b 2d 68 69 73 74 6f | 72 79 27 2e 1f 0a 28 61 |rk-histo|ry'...(a|
|00002ae0| 75 74 6f 6c 6f 61 64 20 | 27 62 6f 6f 6b 6d 61 72 |utoload |'bookmar|
|00002af0| 6b 2d 69 6e 73 65 72 74 | 2d 6c 6f 63 61 74 69 6f |k-insert|-locatio|
|00002b00| 6e 20 22 62 6f 6f 6b 6d | 61 72 6b 22 20 27 28 23 |n "bookm|ark" '(#|
|00002b10| 24 20 2e 20 31 30 38 31 | 33 29 20 74 20 6e 69 6c |$ . 1081|3) t nil|
|00002b20| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 6f 6f |).(defal|ias 'boo|
|00002b30| 6b 6d 61 72 6b 2d 6c 6f | 63 61 74 65 20 27 62 6f |kmark-lo|cate 'bo|
|00002b40| 6f 6b 6d 61 72 6b 2d 69 | 6e 73 65 72 74 2d 6c 6f |okmark-i|nsert-lo|
|00002b50| 63 61 74 69 6f 6e 29 0a | 23 40 34 38 34 20 43 68 |cation).|#@484 Ch|
|00002b60| 61 6e 67 65 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |ange the| name of|
|00002b70| 20 4f 4c 44 20 62 6f 6f | 6b 6d 61 72 6b 20 74 6f | OLD boo|kmark to|
|00002b80| 20 4e 45 57 20 6e 61 6d | 65 2e 0a 49 66 20 63 61 | NEW nam|e..If ca|
|00002b90| 6c 6c 65 64 20 66 72 6f | 6d 20 6b 65 79 62 6f 61 |lled fro|m keyboa|
|00002ba0| 72 64 2c 20 70 72 6f 6d | 70 74 20 66 6f 72 20 4f |rd, prom|pt for O|
|00002bb0| 4c 44 20 61 6e 64 20 4e | 45 57 2e 20 20 49 66 20 |LD and N|EW. If |
|00002bc0| 63 61 6c 6c 65 64 20 66 | 72 6f 6d 0a 6d 65 6e 75 |called f|rom.menu|
|00002bd0| 62 61 72 2c 20 73 65 6c | 65 63 74 20 4f 4c 44 20 |bar, sel|ect OLD |
|00002be0| 66 72 6f 6d 20 61 20 6d | 65 6e 75 20 61 6e 64 20 |from a m|enu and |
|00002bf0| 70 72 6f 6d 70 74 20 66 | 6f 72 20 4e 45 57 2e 0a |prompt f|or NEW..|
|00002c00| 0a 49 66 20 63 61 6c 6c | 65 64 20 66 72 6f 6d 20 |.If call|ed from |
|00002c10| 4c 69 73 70 2c 20 70 72 | 6f 6d 70 74 20 66 6f 72 |Lisp, pr|ompt for|
|00002c20| 20 4e 45 57 20 69 66 20 | 6f 6e 6c 79 20 4f 4c 44 | NEW if |only OLD|
|00002c30| 20 77 61 73 20 70 61 73 | 73 65 64 20 61 73 20 61 | was pas|sed as a|
|00002c40| 6e 0a 61 72 67 75 6d 65 | 6e 74 2e 20 20 49 66 20 |n.argume|nt. If |
|00002c50| 63 61 6c 6c 65 64 20 77 | 69 74 68 20 74 77 6f 20 |called w|ith two |
|00002c60| 73 74 72 69 6e 67 73 2c | 20 74 68 65 6e 20 6e 6f |strings,| then no|
|00002c70| 20 70 72 6f 6d 70 74 69 | 6e 67 20 69 73 20 64 6f | prompti|ng is do|
|00002c80| 6e 65 2e 20 20 59 6f 75 | 0a 6d 75 73 74 20 70 61 |ne. You|.must pa|
|00002c90| 73 73 20 61 74 20 6c 65 | 61 73 74 20 4f 4c 44 20 |ss at le|ast OLD |
|00002ca0| 77 68 65 6e 20 63 61 6c | 6c 69 6e 67 20 66 72 6f |when cal|ling fro|
|00002cb0| 6d 20 4c 69 73 70 2e 0a | 0a 57 68 69 6c 65 20 79 |m Lisp..|.While y|
|00002cc0| 6f 75 20 61 72 65 20 65 | 6e 74 65 72 69 6e 67 20 |ou are e|ntering |
|00002cd0| 74 68 65 20 6e 65 77 20 | 6e 61 6d 65 2c 20 63 6f |the new |name, co|
|00002ce0| 6e 73 65 63 75 74 69 76 | 65 20 43 2d 77 27 73 20 |nsecutiv|e C-w's |
|00002cf0| 69 6e 73 65 72 74 0a 63 | 6f 6e 73 65 63 75 74 69 |insert.c|onsecuti|
|00002d00| 76 65 20 77 6f 72 64 73 | 20 66 72 6f 6d 20 74 68 |ve words| from th|
|00002d10| 65 20 74 65 78 74 20 6f | 66 20 74 68 65 20 62 75 |e text o|f the bu|
|00002d20| 66 66 65 72 20 69 6e 74 | 6f 20 74 68 65 20 6e 65 |ffer int|o the ne|
|00002d30| 77 20 62 6f 6f 6b 6d 61 | 72 6b 0a 6e 61 6d 65 2e |w bookma|rk.name.|
|00002d40| 1f 0a 28 61 75 74 6f 6c | 6f 61 64 20 27 62 6f 6f |..(autol|oad 'boo|
|00002d50| 6b 6d 61 72 6b 2d 72 65 | 6e 61 6d 65 20 22 62 6f |kmark-re|name "bo|
|00002d60| 6f 6b 6d 61 72 6b 22 20 | 27 28 23 24 20 2e 20 31 |okmark" |'(#$ . 1|
|00002d70| 31 31 30 32 29 20 74 20 | 6e 69 6c 29 0a 23 40 32 |1102) t |nil).#@2|
|00002d80| 37 30 20 49 6e 73 65 72 | 74 20 74 68 65 20 74 65 |70 Inser|t the te|
|00002d90| 78 74 20 6f 66 20 74 68 | 65 20 66 69 6c 65 20 70 |xt of th|e file p|
|00002da0| 6f 69 6e 74 65 64 20 74 | 6f 20 62 79 20 62 6f 6f |ointed t|o by boo|
|00002db0| 6b 6d 61 72 6b 20 42 4f | 4f 4b 4d 41 52 4b 2e 20 |kmark BO|OKMARK. |
|00002dc0| 20 0a 59 6f 75 20 6d 61 | 79 20 68 61 76 65 20 61 | .You ma|y have a|
|00002dd0| 20 70 72 6f 62 6c 65 6d | 20 75 73 69 6e 67 20 74 | problem| using t|
|00002de0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 69 66 20 |his func|tion if |
|00002df0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 76 61 72 |the valu|e of var|
|00002e00| 69 61 62 6c 65 0a 60 62 | 6f 6f 6b 6d 61 72 6b 2d |iable.`b|ookmark-|
|00002e10| 61 6c 69 73 74 27 20 69 | 73 20 6e 69 6c 2e 20 20 |alist' i|s nil. |
|00002e20| 49 66 20 74 68 61 74 20 | 68 61 70 70 65 6e 73 2c |If that |happens,|
|00002e30| 20 79 6f 75 20 6e 65 65 | 64 20 74 6f 20 6c 6f 61 | you nee|d to loa|
|00002e40| 64 20 69 6e 20 73 6f 6d | 65 0a 62 6f 6f 6b 6d 61 |d in som|e.bookma|
|00002e50| 72 6b 73 2e 20 20 53 65 | 65 20 68 65 6c 70 20 6f |rks. Se|e help o|
|00002e60| 6e 20 66 75 6e 63 74 69 | 6f 6e 20 60 62 6f 6f 6b |n functi|on `book|
|00002e70| 6d 61 72 6b 2d 6c 6f 61 | 64 27 20 66 6f 72 20 6d |mark-loa|d' for m|
|00002e80| 6f 72 65 20 61 62 6f 75 | 74 0a 74 68 69 73 2e 1f |ore abou|t.this..|
|00002e90| 0a 28 61 75 74 6f 6c 6f | 61 64 20 27 62 6f 6f 6b |.(autolo|ad 'book|
|00002ea0| 6d 61 72 6b 2d 69 6e 73 | 65 72 74 20 22 62 6f 6f |mark-ins|ert "boo|
|00002eb0| 6b 6d 61 72 6b 22 20 27 | 28 23 24 20 2e 20 31 31 |kmark" '|(#$ . 11|
|00002ec0| 36 35 31 29 20 74 20 6e | 69 6c 29 0a 23 40 34 30 |651) t n|il).#@40|
|00002ed0| 34 20 44 65 6c 65 74 65 | 20 42 4f 4f 4b 4d 41 52 |4 Delete| BOOKMAR|
|00002ee0| 4b 20 66 72 6f 6d 20 74 | 68 65 20 62 6f 6f 6b 6d |K from t|he bookm|
|00002ef0| 61 72 6b 20 6c 69 73 74 | 2e 20 20 0a 52 65 6d 6f |ark list|. .Remo|
|00002f00| 76 65 73 20 6f 6e 6c 79 | 20 74 68 65 20 66 69 72 |ves only| the fir|
|00002f10| 73 74 20 69 6e 73 74 61 | 6e 63 65 20 6f 66 20 61 |st insta|nce of a|
|00002f20| 20 62 6f 6f 6b 6d 61 72 | 6b 20 77 69 74 68 20 74 | bookmar|k with t|
|00002f30| 68 61 74 20 6e 61 6d 65 | 2e 20 20 49 66 0a 74 68 |hat name|. If.th|
|00002f40| 65 72 65 20 61 72 65 20 | 6f 6e 65 20 6f 72 20 6d |ere are |one or m|
|00002f50| 6f 72 65 20 6f 74 68 65 | 72 20 62 6f 6f 6b 6d 61 |ore othe|r bookma|
|00002f60| 72 6b 73 20 77 69 74 68 | 20 74 68 65 20 73 61 6d |rks with| the sam|
|00002f70| 65 20 6e 61 6d 65 2c 20 | 74 68 65 79 20 77 69 6c |e name, |they wil|
|00002f80| 6c 0a 6e 6f 74 20 62 65 | 20 64 65 6c 65 74 65 64 |l.not be| deleted|
|00002f90| 2e 20 20 44 65 66 61 75 | 6c 74 73 20 74 6f 20 74 |. Defau|lts to t|
|00002fa0| 68 65 20 22 63 75 72 72 | 65 6e 74 22 20 62 6f 6f |he "curr|ent" boo|
|00002fb0| 6b 6d 61 72 6b 20 28 74 | 68 61 74 20 69 73 2c 20 |kmark (t|hat is, |
|00002fc0| 74 68 65 0a 6f 6e 65 20 | 6d 6f 73 74 20 72 65 63 |the.one |most rec|
|00002fd0| 65 6e 74 6c 79 20 75 73 | 65 64 20 69 6e 20 74 68 |ently us|ed in th|
|00002fe0| 69 73 20 66 69 6c 65 2c | 20 69 66 20 61 6e 79 29 |is file,| if any)|
|00002ff0| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 73 65 63 6f 6e |..Option|al secon|
|00003000| 64 20 61 72 67 20 42 41 | 54 43 48 20 6d 65 61 6e |d arg BA|TCH mean|
|00003010| 73 20 64 6f 6e 27 74 20 | 75 70 64 61 74 65 20 74 |s don't |update t|
|00003020| 68 65 20 62 6f 6f 6b 6d | 61 72 6b 20 6c 69 73 74 |he bookm|ark list|
|00003030| 20 62 75 66 66 65 72 2c | 0a 70 72 6f 62 61 62 6c | buffer,|.probabl|
|00003040| 79 20 62 65 63 61 75 73 | 65 20 77 65 20 77 65 72 |y becaus|e we wer|
|00003050| 65 20 63 61 6c 6c 65 64 | 20 66 72 6f 6d 20 74 68 |e called| from th|
|00003060| 65 72 65 2e 1f 0a 28 61 | 75 74 6f 6c 6f 61 64 20 |ere...(a|utoload |
|00003070| 27 62 6f 6f 6b 6d 61 72 | 6b 2d 64 65 6c 65 74 65 |'bookmar|k-delete|
|00003080| 20 22 62 6f 6f 6b 6d 61 | 72 6b 22 20 27 28 23 24 | "bookma|rk" '(#$|
|00003090| 20 2e 20 31 31 39 38 36 | 29 20 74 20 6e 69 6c 29 | . 11986|) t nil)|
|000030a0| 0a 23 40 31 33 34 20 57 | 72 69 74 65 20 62 6f 6f |.#@134 W|rite boo|
|000030b0| 6b 6d 61 72 6b 73 20 74 | 6f 20 61 20 66 69 6c 65 |kmarks t|o a file|
|000030c0| 20 28 72 65 61 64 69 6e | 67 20 74 68 65 20 66 69 | (readin|g the fi|
|000030d0| 6c 65 20 6e 61 6d 65 20 | 77 69 74 68 20 74 68 65 |le name |with the|
|000030e0| 20 6d 69 6e 69 62 75 66 | 66 65 72 29 2e 0a 44 6f | minibuf|fer)..Do|
|000030f0| 6e 27 74 20 75 73 65 20 | 74 68 69 73 20 69 6e 20 |n't use |this in |
|00003100| 4c 69 73 70 20 70 72 6f | 67 72 61 6d 73 3b 20 75 |Lisp pro|grams; u|
|00003110| 73 65 20 60 62 6f 6f 6b | 6d 61 72 6b 2d 73 61 76 |se `book|mark-sav|
|00003120| 65 27 20 69 6e 73 74 65 | 61 64 2e 1f 0a 28 61 75 |e' inste|ad...(au|
|00003130| 74 6f 6c 6f 61 64 20 27 | 62 6f 6f 6b 6d 61 72 6b |toload '|bookmark|
|00003140| 2d 77 72 69 74 65 20 22 | 62 6f 6f 6b 6d 61 72 6b |-write "|bookmark|
|00003150| 22 20 27 28 23 24 20 2e | 20 31 32 34 35 35 29 20 |" '(#$ .| 12455) |
|00003160| 74 20 6e 69 6c 29 0a 23 | 40 37 30 39 20 53 61 76 |t nil).#|@709 Sav|
|00003170| 65 20 63 75 72 72 65 6e | 74 6c 79 20 64 65 66 69 |e curren|tly defi|
|00003180| 6e 65 64 20 62 6f 6f 6b | 6d 61 72 6b 73 2e 0a 53 |ned book|marks..S|
|00003190| 61 76 65 73 20 62 79 20 | 64 65 66 61 75 6c 74 20 |aves by |default |
|000031a0| 69 6e 20 74 68 65 20 66 | 69 6c 65 20 64 65 66 69 |in the f|ile defi|
|000031b0| 6e 65 64 20 62 79 20 74 | 68 65 20 76 61 72 69 61 |ned by t|he varia|
|000031c0| 62 6c 65 0a 60 62 6f 6f | 6b 6d 61 72 6b 2d 64 65 |ble.`boo|kmark-de|
|000031d0| 66 61 75 6c 74 2d 66 69 | 6c 65 27 2e 20 20 57 69 |fault-fi|le'. Wi|
|000031e0| 74 68 20 61 20 70 72 65 | 66 69 78 20 61 72 67 2c |th a pre|fix arg,|
|000031f0| 20 73 61 76 65 20 69 74 | 20 69 6e 20 66 69 6c 65 | save it| in file|
|00003200| 20 46 49 4c 45 0a 28 73 | 65 63 6f 6e 64 20 61 72 | FILE.(s|econd ar|
|00003210| 67 75 6d 65 6e 74 29 2e | 0a 0a 49 66 20 79 6f 75 |gument).|..If you|
|00003220| 20 61 72 65 20 63 61 6c | 6c 69 6e 67 20 74 68 69 | are cal|ling thi|
|00003230| 73 20 66 72 6f 6d 20 4c | 69 73 70 2c 20 74 68 65 |s from L|isp, the|
|00003240| 20 74 77 6f 20 61 72 67 | 75 6d 65 6e 74 73 20 61 | two arg|uments a|
|00003250| 72 65 20 50 52 45 46 49 | 58 2d 41 52 47 0a 61 6e |re PREFI|X-ARG.an|
|00003260| 64 20 46 49 4c 45 2c 20 | 61 6e 64 20 69 66 20 79 |d FILE, |and if y|
|00003270| 6f 75 20 6a 75 73 74 20 | 77 61 6e 74 20 69 74 20 |ou just |want it |
|00003280| 74 6f 20 77 72 69 74 65 | 20 74 6f 20 74 68 65 20 |to write| to the |
|00003290| 64 65 66 61 75 6c 74 20 | 66 69 6c 65 2c 20 74 68 |default |file, th|
|000032a0| 65 6e 0a 70 61 73 73 20 | 6e 6f 20 61 72 67 75 6d |en.pass |no argum|
|000032b0| 65 6e 74 73 2e 20 20 4f | 72 20 70 61 73 73 20 69 |ents. O|r pass i|
|000032c0| 6e 20 6e 69 6c 20 61 6e | 64 20 46 49 4c 45 2c 20 |n nil an|d FILE, |
|000032d0| 61 6e 64 20 69 74 20 77 | 69 6c 6c 20 73 61 76 65 |and it w|ill save|
|000032e0| 20 69 6e 20 46 49 4c 45 | 0a 69 6e 73 74 65 61 64 | in FILE|.instead|
|000032f0| 2e 20 20 49 66 20 79 6f | 75 20 70 61 73 73 20 69 |. If yo|u pass i|
|00003300| 6e 20 6f 6e 65 20 61 72 | 67 75 6d 65 6e 74 2c 20 |n one ar|gument, |
|00003310| 61 6e 64 20 69 74 20 69 | 73 20 6e 6f 6e 2d 6e 69 |and it i|s non-ni|
|00003320| 6c 2c 20 74 68 65 6e 20 | 74 68 65 0a 75 73 65 72 |l, then |the.user|
|00003330| 20 77 69 6c 6c 20 62 65 | 20 69 6e 74 65 72 61 63 | will be| interac|
|00003340| 74 69 76 65 6c 79 20 71 | 75 65 72 69 65 64 20 66 |tively q|ueried f|
|00003350| 6f 72 20 61 20 66 69 6c | 65 20 74 6f 20 73 61 76 |or a fil|e to sav|
|00003360| 65 20 69 6e 2e 0a 0a 57 | 68 65 6e 20 79 6f 75 20 |e in...W|hen you |
|00003370| 77 61 6e 74 20 74 6f 20 | 6c 6f 61 64 20 69 6e 20 |want to |load in |
|00003380| 74 68 65 20 62 6f 6f 6b | 6d 61 72 6b 73 20 66 72 |the book|marks fr|
|00003390| 6f 6d 20 61 20 66 69 6c | 65 2c 20 75 73 65 0a 60 |om a fil|e, use.`|
|000033a0| 62 6f 6f 6b 6d 61 72 6b | 2d 6c 6f 61 64 27 2c 20 |bookmark|-load', |
|000033b0| 5c 5b 62 6f 6f 6b 6d 61 | 72 6b 2d 6c 6f 61 64 5d |\[bookma|rk-load]|
|000033c0| 2e 20 20 54 68 61 74 20 | 66 75 6e 63 74 69 6f 6e |. That |function|
|000033d0| 20 77 69 6c 6c 20 70 72 | 6f 6d 70 74 20 79 6f 75 | will pr|ompt you|
|000033e0| 0a 66 6f 72 20 61 20 66 | 69 6c 65 2c 20 64 65 66 |.for a f|ile, def|
|000033f0| 61 75 6c 74 69 6e 67 20 | 74 6f 20 74 68 65 20 66 |aulting |to the f|
|00003400| 69 6c 65 20 64 65 66 69 | 6e 65 64 20 62 79 20 76 |ile defi|ned by v|
|00003410| 61 72 69 61 62 6c 65 0a | 60 62 6f 6f 6b 6d 61 72 |ariable.|`bookmar|
|00003420| 6b 2d 64 65 66 61 75 6c | 74 2d 66 69 6c 65 27 2e |k-defaul|t-file'.|
|00003430| 1f 0a 28 61 75 74 6f 6c | 6f 61 64 20 27 62 6f 6f |..(autol|oad 'boo|
|00003440| 6b 6d 61 72 6b 2d 73 61 | 76 65 20 22 62 6f 6f 6b |kmark-sa|ve "book|
|00003450| 6d 61 72 6b 22 20 27 28 | 23 24 20 2e 20 31 32 36 |mark" '(|#$ . 126|
|00003460| 35 33 29 20 74 20 6e 69 | 6c 29 0a 23 40 36 32 37 |53) t ni|l).#@627|
|00003470| 20 4c 6f 61 64 20 62 6f | 6f 6b 6d 61 72 6b 73 20 | Load bo|okmarks |
|00003480| 66 72 6f 6d 20 46 49 4c | 45 20 28 77 68 69 63 68 |from FIL|E (which|
|00003490| 20 6d 75 73 74 20 62 65 | 20 69 6e 20 62 6f 6f 6b | must be| in book|
|000034a0| 6d 61 72 6b 20 66 6f 72 | 6d 61 74 29 2e 0a 41 70 |mark for|mat)..Ap|
|000034b0| 70 65 6e 64 73 20 6c 6f | 61 64 65 64 20 62 6f 6f |pends lo|aded boo|
|000034c0| 6b 6d 61 72 6b 73 20 74 | 6f 20 74 68 65 20 66 72 |kmarks t|o the fr|
|000034d0| 6f 6e 74 20 6f 66 20 74 | 68 65 20 6c 69 73 74 20 |ont of t|he list |
|000034e0| 6f 66 20 62 6f 6f 6b 6d | 61 72 6b 73 2e 20 20 49 |of bookm|arks. I|
|000034f0| 66 0a 6f 70 74 69 6f 6e | 61 6c 20 73 65 63 6f 6e |f.option|al secon|
|00003500| 64 20 61 72 67 75 6d 65 | 6e 74 20 52 45 56 45 52 |d argume|nt REVER|
|00003510| 54 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2c 20 65 78 |T is non|-nil, ex|
|00003520| 69 73 74 69 6e 67 20 62 | 6f 6f 6b 6d 61 72 6b 73 |isting b|ookmarks|
|00003530| 20 61 72 65 0a 64 65 73 | 74 72 6f 79 65 64 2e 20 | are.des|troyed. |
|00003540| 20 4f 70 74 69 6f 6e 61 | 6c 20 74 68 69 72 64 20 | Optiona|l third |
|00003550| 61 72 67 20 4e 4f 2d 4d | 53 47 20 6d 65 61 6e 73 |arg NO-M|SG means|
|00003560| 20 64 6f 6e 27 74 20 64 | 69 73 70 6c 61 79 20 61 | don't d|isplay a|
|00003570| 6e 79 20 6d 65 73 73 61 | 67 65 73 0a 77 68 69 6c |ny messa|ges.whil|
|00003580| 65 20 6c 6f 61 64 69 6e | 67 2e 0a 0a 49 66 20 79 |e loadin|g...If y|
|00003590| 6f 75 20 6c 6f 61 64 20 | 61 20 66 69 6c 65 20 74 |ou load |a file t|
|000035a0| 68 61 74 20 64 6f 65 73 | 6e 27 74 20 63 6f 6e 74 |hat does|n't cont|
|000035b0| 61 69 6e 20 61 20 70 72 | 6f 70 65 72 20 62 6f 6f |ain a pr|oper boo|
|000035c0| 6b 6d 61 72 6b 20 61 6c | 69 73 74 2c 20 79 6f 75 |kmark al|ist, you|
|000035d0| 0a 77 69 6c 6c 20 63 6f | 72 72 75 70 74 20 45 6d |.will co|rrupt Em|
|000035e0| 61 63 73 27 73 20 62 6f | 6f 6b 6d 61 72 6b 20 6c |acs's bo|okmark l|
|000035f0| 69 73 74 2e 20 20 47 65 | 6e 65 72 61 6c 6c 79 2c |ist. Ge|nerally,|
|00003600| 20 79 6f 75 20 73 68 6f | 75 6c 64 20 6f 6e 6c 79 | you sho|uld only|
|00003610| 20 6c 6f 61 64 0a 69 6e | 20 66 69 6c 65 73 20 74 | load.in| files t|
|00003620| 68 61 74 20 77 65 72 65 | 20 63 72 65 61 74 65 64 |hat were| created|
|00003630| 20 77 69 74 68 20 74 68 | 65 20 62 6f 6f 6b 6d 61 | with th|e bookma|
|00003640| 72 6b 20 66 75 6e 63 74 | 69 6f 6e 73 20 69 6e 20 |rk funct|ions in |
|00003650| 74 68 65 20 66 69 72 73 | 74 0a 70 6c 61 63 65 2e |the firs|t.place.|
|00003660| 20 20 59 6f 75 72 20 6f | 77 6e 20 70 65 72 73 6f | Your o|wn perso|
|00003670| 6e 61 6c 20 62 6f 6f 6b | 6d 61 72 6b 20 66 69 6c |nal book|mark fil|
|00003680| 65 2c 20 60 7e 2f 2e 65 | 6d 61 63 73 2e 62 6d 6b |e, `~/.e|macs.bmk|
|00003690| 27 2c 20 69 73 0a 6d 61 | 69 6e 74 61 69 6e 65 64 |', is.ma|intained|
|000036a0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 62 | automat|ically b|
|000036b0| 79 20 45 6d 61 63 73 3b | 20 79 6f 75 20 73 68 6f |y Emacs;| you sho|
|000036c0| 75 6c 64 6e 27 74 20 6e | 65 65 64 20 74 6f 20 6c |uldn't n|eed to l|
|000036d0| 6f 61 64 20 69 74 0a 65 | 78 70 6c 69 63 69 74 6c |oad it.e|xplicitl|
|000036e0| 79 2e 1f 0a 28 61 75 74 | 6f 6c 6f 61 64 20 27 62 |y...(aut|oload 'b|
|000036f0| 6f 6f 6b 6d 61 72 6b 2d | 6c 6f 61 64 20 22 62 6f |ookmark-|load "bo|
|00003700| 6f 6b 6d 61 72 6b 22 20 | 27 28 23 24 20 2e 20 31 |okmark" |'(#$ . 1|
|00003710| 33 34 32 35 29 20 74 20 | 6e 69 6c 29 0a 23 40 32 |3425) t |nil).#@2|
|00003720| 31 30 20 44 69 73 70 6c | 61 79 20 61 20 6c 69 73 |10 Displ|ay a lis|
|00003730| 74 20 6f 66 20 65 78 69 | 73 74 69 6e 67 20 62 6f |t of exi|sting bo|
|00003740| 6f 6b 6d 61 72 6b 73 2e | 0a 54 68 65 20 6c 69 73 |okmarks.|.The lis|
|00003750| 74 20 69 73 20 64 69 73 | 70 6c 61 79 65 64 20 69 |t is dis|played i|
|00003760| 6e 20 61 20 62 75 66 66 | 65 72 20 6e 61 6d 65 64 |n a buff|er named|
|00003770| 20 60 2a 42 6f 6f 6b 6d | 61 72 6b 20 4c 69 73 74 | `*Bookm|ark List|
|00003780| 2a 27 2e 0a 54 68 65 20 | 6c 65 66 74 6d 6f 73 74 |*'..The |leftmost|
|00003790| 20 63 6f 6c 75 6d 6e 20 | 64 69 73 70 6c 61 79 73 | column |displays|
|000037a0| 20 61 20 44 20 69 66 20 | 74 68 65 20 62 6f 6f 6b | a D if |the book|
|000037b0| 6d 61 72 6b 20 69 73 20 | 66 6c 61 67 67 65 64 20 |mark is |flagged |
|000037c0| 66 6f 72 0a 64 65 6c 65 | 74 69 6f 6e 2c 20 6f 72 |for.dele|tion, or|
|000037d0| 20 3e 20 69 66 20 69 74 | 20 69 73 20 66 6c 61 67 | > if it| is flag|
|000037e0| 67 65 64 20 66 6f 72 20 | 64 69 73 70 6c 61 79 69 |ged for |displayi|
|000037f0| 6e 67 2e 1f 0a 28 61 75 | 74 6f 6c 6f 61 64 20 27 |ng...(au|toload '|
|00003800| 62 6f 6f 6b 6d 61 72 6b | 2d 62 6d 65 6e 75 2d 6c |bookmark|-bmenu-l|
|00003810| 69 73 74 20 22 62 6f 6f | 6b 6d 61 72 6b 22 20 27 |ist "boo|kmark" '|
|00003820| 28 23 24 20 2e 20 31 34 | 31 31 35 29 20 74 20 6e |(#$ . 14|115) t n|
|00003830| 69 6c 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |il).(byt|e-code "|
|00003840| c0 c1 c2 5c 22 88 c0 c3 | c2 5c 22 87 22 20 5b 64 |...\"...|.\"." [d|
|00003850| 65 66 61 6c 69 61 73 20 | 6c 69 73 74 2d 62 6f 6f |efalias |list-boo|
|00003860| 6b 6d 61 72 6b 73 20 62 | 6f 6f 6b 6d 61 72 6b 2d |kmarks b|ookmark-|
|00003870| 62 6d 65 6e 75 2d 6c 69 | 73 74 20 65 64 69 74 2d |bmenu-li|st edit-|
|00003880| 62 6f 6f 6b 6d 61 72 6b | 73 5d 20 33 29 0a 23 40 |bookmark|s] 3).#@|
|00003890| 34 32 32 20 49 6e 73 65 | 72 74 20 74 68 65 20 74 |422 Inse|rt the t|
|000038a0| 65 78 74 20 6f 66 20 74 | 68 65 20 66 69 6c 65 20 |ext of t|he file |
|000038b0| 70 6f 69 6e 74 65 64 20 | 74 6f 20 62 79 20 62 6f |pointed |to by bo|
|000038c0| 6f 6b 6d 61 72 6b 20 42 | 4f 4f 4b 4d 41 52 4b 2e |okmark B|OOKMARK.|
|000038d0| 20 20 0a 59 6f 75 20 6d | 61 79 20 68 61 76 65 20 | .You m|ay have |
|000038e0| 61 20 70 72 6f 62 6c 65 | 6d 20 75 73 69 6e 67 20 |a proble|m using |
|000038f0| 74 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 69 66 |this fun|ction if|
|00003900| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 76 61 | the val|ue of va|
|00003910| 72 69 61 62 6c 65 0a 60 | 62 6f 6f 6b 6d 61 72 6b |riable.`|bookmark|
|00003920| 2d 61 6c 69 73 74 27 20 | 69 73 20 6e 69 6c 2e 20 |-alist' |is nil. |
|00003930| 20 49 66 20 74 68 61 74 | 20 68 61 70 70 65 6e 73 | If that| happens|
|00003940| 2c 20 79 6f 75 20 6e 65 | 65 64 20 74 6f 20 6c 6f |, you ne|ed to lo|
|00003950| 61 64 20 69 6e 20 73 6f | 6d 65 0a 62 6f 6f 6b 6d |ad in so|me.bookm|
|00003960| 61 72 6b 73 2e 20 20 53 | 65 65 20 68 65 6c 70 20 |arks. S|ee help |
|00003970| 6f 6e 20 66 75 6e 63 74 | 69 6f 6e 20 60 62 6f 6f |on funct|ion `boo|
|00003980| 6b 6d 61 72 6b 2d 6c 6f | 61 64 27 20 66 6f 72 20 |kmark-lo|ad' for |
|00003990| 6d 6f 72 65 20 61 62 6f | 75 74 0a 74 68 69 73 2e |more abo|ut.this.|
|000039a0| 0a 0a 57 61 72 6e 69 6e | 67 3a 20 74 68 69 73 20 |..Warnin|g: this |
|000039b0| 66 75 6e 63 74 69 6f 6e | 20 6f 6e 6c 79 20 74 61 |function| only ta|
|000039c0| 6b 65 73 20 61 6e 20 45 | 56 45 4e 54 20 61 73 20 |kes an E|VENT as |
|000039d0| 61 72 67 75 6d 65 6e 74 | 2e 20 20 55 73 65 20 74 |argument|. Use t|
|000039e0| 68 65 0a 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 |he.corre|sponding|
|000039f0| 20 62 6f 6f 6b 6d 61 72 | 6b 20 66 75 6e 63 74 69 | bookmar|k functi|
|00003a00| 6f 6e 20 66 72 6f 6d 20 | 4c 69 73 70 20 28 74 68 |on from |Lisp (th|
|00003a10| 65 20 6f 6e 65 20 77 69 | 74 68 6f 75 74 20 74 68 |e one wi|thout th|
|00003a20| 65 0a 22 2d 6d 65 6e 75 | 2d 22 20 69 6e 20 69 74 |e."-menu|-" in it|
|00003a30| 73 20 6e 61 6d 65 29 2e | 1f 0a 28 61 75 74 6f 6c |s name).|..(autol|
|00003a40| 6f 61 64 20 27 62 6f 6f | 6b 6d 61 72 6b 2d 6d 65 |oad 'boo|kmark-me|
|00003a50| 6e 75 2d 69 6e 73 65 72 | 74 20 22 62 6f 6f 6b 6d |nu-inser|t "bookm|
|00003a60| 61 72 6b 22 20 27 28 23 | 24 20 2e 20 31 34 34 38 |ark" '(#|$ . 1448|
|00003a70| 34 29 20 74 20 6e 69 6c | 29 0a 23 40 34 31 31 20 |4) t nil|).#@411 |
|00003a80| 4a 75 6d 70 20 74 6f 20 | 62 6f 6f 6b 6d 61 72 6b |Jump to |bookmark|
|00003a90| 20 42 4f 4f 4b 4d 41 52 | 4b 20 28 61 20 70 6f 69 | BOOKMAR|K (a poi|
|00003aa0| 6e 74 20 69 6e 20 73 6f | 6d 65 20 66 69 6c 65 29 |nt in so|me file)|
|00003ab0| 2e 20 20 0a 59 6f 75 20 | 6d 61 79 20 68 61 76 65 |. .You |may have|
|00003ac0| 20 61 20 70 72 6f 62 6c | 65 6d 20 75 73 69 6e 67 | a probl|em using|
|00003ad0| 20 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 69 | this fu|nction i|
|00003ae0| 66 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 76 |f the va|lue of v|
|00003af0| 61 72 69 61 62 6c 65 0a | 60 62 6f 6f 6b 6d 61 72 |ariable.|`bookmar|
|00003b00| 6b 2d 61 6c 69 73 74 27 | 20 69 73 20 6e 69 6c 2e |k-alist'| is nil.|
|00003b10| 20 20 49 66 20 74 68 61 | 74 20 68 61 70 70 65 6e | If tha|t happen|
|00003b20| 73 2c 20 79 6f 75 20 6e | 65 65 64 20 74 6f 20 6c |s, you n|eed to l|
|00003b30| 6f 61 64 20 69 6e 20 73 | 6f 6d 65 0a 62 6f 6f 6b |oad in s|ome.book|
|00003b40| 6d 61 72 6b 73 2e 20 20 | 53 65 65 20 68 65 6c 70 |marks. |See help|
|00003b50| 20 6f 6e 20 66 75 6e 63 | 74 69 6f 6e 20 60 62 6f | on func|tion `bo|
|00003b60| 6f 6b 6d 61 72 6b 2d 6c | 6f 61 64 27 20 66 6f 72 |okmark-l|oad' for|
|00003b70| 20 6d 6f 72 65 20 61 62 | 6f 75 74 0a 74 68 69 73 | more ab|out.this|
|00003b80| 2e 0a 0a 57 61 72 6e 69 | 6e 67 3a 20 74 68 69 73 |...Warni|ng: this|
|00003b90| 20 66 75 6e 63 74 69 6f | 6e 20 6f 6e 6c 79 20 74 | functio|n only t|
|00003ba0| 61 6b 65 73 20 61 6e 20 | 45 56 45 4e 54 20 61 73 |akes an |EVENT as|
|00003bb0| 20 61 72 67 75 6d 65 6e | 74 2e 20 20 55 73 65 20 | argumen|t. Use |
|00003bc0| 74 68 65 0a 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e |the.corr|espondin|
|00003bd0| 67 20 62 6f 6f 6b 6d 61 | 72 6b 20 66 75 6e 63 74 |g bookma|rk funct|
|00003be0| 69 6f 6e 20 66 72 6f 6d | 20 4c 69 73 70 20 28 74 |ion from| Lisp (t|
|00003bf0| 68 65 20 6f 6e 65 20 77 | 69 74 68 6f 75 74 20 74 |he one w|ithout t|
|00003c00| 68 65 0a 22 2d 6d 65 6e | 75 2d 22 20 69 6e 20 69 |he."-men|u-" in i|
|00003c10| 74 73 20 6e 61 6d 65 29 | 2e 1f 0a 28 61 75 74 6f |ts name)|...(auto|
|00003c20| 6c 6f 61 64 20 27 62 6f | 6f 6b 6d 61 72 6b 2d 6d |load 'bo|okmark-m|
|00003c30| 65 6e 75 2d 6a 75 6d 70 | 20 22 62 6f 6f 6b 6d 61 |enu-jump| "bookma|
|00003c40| 72 6b 22 20 27 28 23 24 | 20 2e 20 31 34 39 37 36 |rk" '(#$| . 14976|
|00003c50| 29 20 74 20 6e 69 6c 29 | 0a 23 40 32 36 31 20 49 |) t nil)|.#@261 I|
|00003c60| 6e 73 65 72 74 20 74 68 | 65 20 6e 61 6d 65 20 6f |nsert th|e name o|
|00003c70| 66 20 74 68 65 20 66 69 | 6c 65 20 61 73 73 6f 63 |f the fi|le assoc|
|00003c80| 69 61 74 65 64 20 77 69 | 74 68 20 42 4f 4f 4b 4d |iated wi|th BOOKM|
|00003c90| 41 52 4b 2e 20 0a 28 54 | 68 69 73 20 69 73 20 6e |ARK. .(T|his is n|
|00003ca0| 6f 74 20 74 68 65 20 73 | 61 6d 65 20 61 73 20 74 |ot the s|ame as t|
|00003cb0| 68 65 20 63 6f 6e 74 65 | 6e 74 73 20 6f 66 20 74 |he conte|nts of t|
|00003cc0| 68 61 74 20 66 69 6c 65 | 29 2e 0a 0a 57 61 72 6e |hat file|)...Warn|
|00003cd0| 69 6e 67 3a 20 74 68 69 | 73 20 66 75 6e 63 74 69 |ing: thi|s functi|
|00003ce0| 6f 6e 20 6f 6e 6c 79 20 | 74 61 6b 65 73 20 61 6e |on only |takes an|
|00003cf0| 20 45 56 45 4e 54 20 61 | 73 20 61 72 67 75 6d 65 | EVENT a|s argume|
|00003d00| 6e 74 2e 20 20 55 73 65 | 20 74 68 65 0a 63 6f 72 |nt. Use| the.cor|
|00003d10| 72 65 73 70 6f 6e 64 69 | 6e 67 20 62 6f 6f 6b 6d |respondi|ng bookm|
|00003d20| 61 72 6b 20 66 75 6e 63 | 74 69 6f 6e 20 66 72 6f |ark func|tion fro|
|00003d30| 6d 20 4c 69 73 70 20 28 | 74 68 65 20 6f 6e 65 20 |m Lisp (|the one |
|00003d40| 77 69 74 68 6f 75 74 20 | 74 68 65 0a 22 2d 6d 65 |without |the."-me|
|00003d50| 6e 75 2d 22 20 69 6e 20 | 69 74 73 20 6e 61 6d 65 |nu-" in |its name|
|00003d60| 29 2e 1f 0a 28 61 75 74 | 6f 6c 6f 61 64 20 27 62 |)...(aut|oload 'b|
|00003d70| 6f 6f 6b 6d 61 72 6b 2d | 6d 65 6e 75 2d 6c 6f 63 |ookmark-|menu-loc|
|00003d80| 61 74 65 20 22 62 6f 6f | 6b 6d 61 72 6b 22 20 27 |ate "boo|kmark" '|
|00003d90| 28 23 24 20 2e 20 31 35 | 34 35 35 29 20 74 20 6e |(#$ . 15|455) t n|
|00003da0| 69 6c 29 0a 23 40 36 39 | 33 20 43 68 61 6e 67 65 |il).#@69|3 Change|
|00003db0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 4f 4c 44 | the nam|e of OLD|
|00003dc0| 2d 42 4f 4f 4b 4d 41 52 | 4b 20 74 6f 20 4e 45 57 |-BOOKMAR|K to NEW|
|00003dd0| 4e 41 4d 45 2e 20 20 0a | 49 66 20 63 61 6c 6c 65 |NAME. .|If calle|
|00003de0| 64 20 66 72 6f 6d 20 6b | 65 79 62 6f 61 72 64 2c |d from k|eyboard,|
|00003df0| 20 70 72 6f 6d 70 74 73 | 20 66 6f 72 20 4f 4c 44 | prompts| for OLD|
|00003e00| 2d 42 4f 4f 4b 4d 41 52 | 4b 20 61 6e 64 20 4e 45 |-BOOKMAR|K and NE|
|00003e10| 57 4e 41 4d 45 2e 0a 49 | 66 20 63 61 6c 6c 65 64 |WNAME..I|f called|
|00003e20| 20 66 72 6f 6d 20 6d 65 | 6e 75 62 61 72 2c 20 4f | from me|nubar, O|
|00003e30| 4c 44 2d 42 4f 4f 4b 4d | 41 52 4b 20 69 73 20 73 |LD-BOOKM|ARK is s|
|00003e40| 65 6c 65 63 74 65 64 20 | 66 72 6f 6d 20 61 20 6d |elected |from a m|
|00003e50| 65 6e 75 2c 20 61 6e 64 | 0a 70 72 6f 6d 70 74 73 |enu, and|.prompts|
|00003e60| 20 66 6f 72 20 4e 45 57 | 4e 41 4d 45 2e 20 0a 49 | for NEW|NAME. .I|
|00003e70| 66 20 63 61 6c 6c 65 64 | 20 66 72 6f 6d 20 4c 69 |f called| from Li|
|00003e80| 73 70 2c 20 70 72 6f 6d | 70 74 73 20 66 6f 72 20 |sp, prom|pts for |
|00003e90| 4e 45 57 4e 41 4d 45 20 | 69 66 20 6f 6e 6c 79 20 |NEWNAME |if only |
|00003ea0| 4f 4c 44 2d 42 4f 4f 4b | 4d 41 52 4b 20 77 61 73 |OLD-BOOK|MARK was|
|00003eb0| 0a 70 61 73 73 65 64 20 | 61 73 20 61 6e 20 61 72 |.passed |as an ar|
|00003ec0| 67 75 6d 65 6e 74 2e 20 | 20 49 66 20 63 61 6c 6c |gument. | If call|
|00003ed0| 65 64 20 77 69 74 68 20 | 74 77 6f 20 73 74 72 69 |ed with |two stri|
|00003ee0| 6e 67 73 2c 20 74 68 65 | 6e 20 6e 6f 20 70 72 6f |ngs, the|n no pro|
|00003ef0| 6d 70 74 69 6e 67 0a 69 | 73 20 64 6f 6e 65 2e 20 |mpting.i|s done. |
|00003f00| 20 59 6f 75 20 6d 75 73 | 74 20 70 61 73 73 20 61 | You mus|t pass a|
|00003f10| 74 20 6c 65 61 73 74 20 | 4f 4c 44 2d 42 4f 4f 4b |t least |OLD-BOOK|
|00003f20| 4d 41 52 4b 20 77 68 65 | 6e 20 63 61 6c 6c 69 6e |MARK whe|n callin|
|00003f30| 67 20 66 72 6f 6d 20 4c | 69 73 70 2e 0a 0a 57 68 |g from L|isp...Wh|
|00003f40| 69 6c 65 20 79 6f 75 20 | 61 72 65 20 65 6e 74 65 |ile you |are ente|
|00003f50| 72 69 6e 67 20 74 68 65 | 20 6e 65 77 20 6e 61 6d |ring the| new nam|
|00003f60| 65 2c 20 63 6f 6e 73 65 | 63 75 74 69 76 65 20 43 |e, conse|cutive C|
|00003f70| 2d 77 27 73 20 69 6e 73 | 65 72 74 0a 63 6f 6e 73 |-w's ins|ert.cons|
|00003f80| 65 63 75 74 69 76 65 20 | 77 6f 72 64 73 20 66 72 |ecutive |words fr|
|00003f90| 6f 6d 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 74 |om the t|ext of t|
|00003fa0| 68 65 20 62 75 66 66 65 | 72 20 69 6e 74 6f 20 74 |he buffe|r into t|
|00003fb0| 68 65 20 6e 65 77 20 62 | 6f 6f 6b 6d 61 72 6b 0a |he new b|ookmark.|
|00003fc0| 6e 61 6d 65 2e 0a 0a 57 | 61 72 6e 69 6e 67 3a 20 |name...W|arning: |
|00003fd0| 74 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 6f 6e |this fun|ction on|
|00003fe0| 6c 79 20 74 61 6b 65 73 | 20 61 6e 20 45 56 45 4e |ly takes| an EVEN|
|00003ff0| 54 20 61 73 20 61 72 67 | 75 6d 65 6e 74 2e 20 20 |T as arg|ument. |
|00004000| 55 73 65 20 74 68 65 0a | 63 6f 72 72 65 73 70 6f |Use the.|correspo|
|00004010| 6e 64 69 6e 67 20 62 6f | 6f 6b 6d 61 72 6b 20 66 |nding bo|okmark f|
|00004020| 75 6e 63 74 69 6f 6e 20 | 66 72 6f 6d 20 4c 69 73 |unction |from Lis|
|00004030| 70 20 28 74 68 65 20 6f | 6e 65 20 77 69 74 68 6f |p (the o|ne witho|
|00004040| 75 74 20 74 68 65 0a 22 | 2d 6d 65 6e 75 2d 22 20 |ut the."|-menu-" |
|00004050| 69 6e 20 69 74 73 20 6e | 61 6d 65 29 2e 1f 0a 28 |in its n|ame)...(|
|00004060| 61 75 74 6f 6c 6f 61 64 | 20 27 62 6f 6f 6b 6d 61 |autoload| 'bookma|
|00004070| 72 6b 2d 6d 65 6e 75 2d | 72 65 6e 61 6d 65 20 22 |rk-menu-|rename "|
|00004080| 62 6f 6f 6b 6d 61 72 6b | 22 20 27 28 23 24 20 2e |bookmark|" '(#$ .|
|00004090| 20 31 35 37 38 36 29 20 | 74 20 6e 69 6c 29 0a 23 | 15786) |t nil).#|
|000040a0| 40 34 35 36 20 44 65 6c | 65 74 65 20 74 68 65 20 |@456 Del|ete the |
|000040b0| 62 6f 6f 6b 6d 61 72 6b | 20 6e 61 6d 65 64 20 4e |bookmark| named N|
|000040c0| 41 4d 45 20 66 72 6f 6d | 20 74 68 65 20 62 6f 6f |AME from| the boo|
|000040d0| 6b 6d 61 72 6b 20 6c 69 | 73 74 2e 20 20 0a 52 65 |kmark li|st. .Re|
|000040e0| 6d 6f 76 65 73 20 6f 6e | 6c 79 20 74 68 65 20 66 |moves on|ly the f|
|000040f0| 69 72 73 74 20 69 6e 73 | 74 61 6e 63 65 20 6f 66 |irst ins|tance of|
|00004100| 20 61 20 62 6f 6f 6b 6d | 61 72 6b 20 77 69 74 68 | a bookm|ark with|
|00004110| 20 74 68 61 74 20 6e 61 | 6d 65 2e 20 20 49 66 0a | that na|me. If.|
|00004120| 74 68 65 72 65 20 61 72 | 65 20 6f 6e 65 20 6f 72 |there ar|e one or|
|00004130| 20 6d 6f 72 65 20 6f 74 | 68 65 72 20 62 6f 6f 6b | more ot|her book|
|00004140| 6d 61 72 6b 73 20 77 69 | 74 68 20 74 68 65 20 73 |marks wi|th the s|
|00004150| 61 6d 65 20 6e 61 6d 65 | 2c 20 74 68 65 79 20 77 |ame name|, they w|
|00004160| 69 6c 6c 0a 6e 6f 74 20 | 62 65 20 64 65 6c 65 74 |ill.not |be delet|
|00004170| 65 64 2e 20 20 44 65 66 | 61 75 6c 74 73 20 74 6f |ed. Def|aults to|
|00004180| 20 74 68 65 20 22 63 75 | 72 72 65 6e 74 22 20 62 | the "cu|rrent" b|
|00004190| 6f 6f 6b 6d 61 72 6b 20 | 28 74 68 61 74 20 69 73 |ookmark |(that is|
|000041a0| 2c 20 74 68 65 0a 6f 6e | 65 20 6d 6f 73 74 20 72 |, the.on|e most r|
|000041b0| 65 63 65 6e 74 6c 79 20 | 75 73 65 64 20 69 6e 20 |ecently |used in |
|000041c0| 74 68 69 73 20 66 69 6c | 65 2c 20 69 66 20 61 6e |this fil|e, if an|
|000041d0| 79 29 2e 0a 0a 57 61 72 | 6e 69 6e 67 3a 20 74 68 |y)...War|ning: th|
|000041e0| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 6f 6e 6c 79 |is funct|ion only|
|000041f0| 20 74 61 6b 65 73 20 61 | 6e 20 45 56 45 4e 54 20 | takes a|n EVENT |
|00004200| 61 73 20 61 72 67 75 6d | 65 6e 74 2e 20 20 55 73 |as argum|ent. Us|
|00004210| 65 20 74 68 65 0a 63 6f | 72 72 65 73 70 6f 6e 64 |e the.co|rrespond|
|00004220| 69 6e 67 20 62 6f 6f 6b | 6d 61 72 6b 20 66 75 6e |ing book|mark fun|
|00004230| 63 74 69 6f 6e 20 66 72 | 6f 6d 20 4c 69 73 70 20 |ction fr|om Lisp |
|00004240| 28 74 68 65 20 6f 6e 65 | 20 77 69 74 68 6f 75 74 |(the one| without|
|00004250| 20 74 68 65 0a 22 2d 6d | 65 6e 75 2d 22 20 69 6e | the."-m|enu-" in|
|00004260| 20 69 74 73 20 6e 61 6d | 65 29 2e 1f 0a 28 61 75 | its nam|e)...(au|
|00004270| 74 6f 6c 6f 61 64 20 27 | 62 6f 6f 6b 6d 61 72 6b |toload '|bookmark|
|00004280| 2d 6d 65 6e 75 2d 64 65 | 6c 65 74 65 20 22 62 6f |-menu-de|lete "bo|
|00004290| 6f 6b 6d 61 72 6b 22 20 | 27 28 23 24 20 2e 20 31 |okmark" |'(#$ . 1|
|000042a0| 36 35 34 39 29 20 74 20 | 6e 69 6c 29 0a 28 62 79 |6549) t |nil).(by|
|000042b0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 84 c2 c3 |te-code |"..!....|
|000042c0| 21 11 c1 0c 42 14 c5 c1 | 89 4a 5c 22 88 c6 09 c7 |!...B...|.J\"....|
|000042d0| c8 23 88 c6 09 c9 ca 23 | 88 c6 09 cb cc 23 88 c6 |.#.....#|.....#..|
|000042e0| 09 cd ce 23 88 c6 09 cf | d0 23 88 c6 09 d1 d2 23 |...#....|.#.....#|
|000042f0| 88 c6 09 d3 d4 23 88 c6 | 09 d5 d6 23 88 c6 09 d7 |.....#..|...#....|
|00004300| d8 23 88 c6 09 d9 da 23 | 88 c0 db 21 ac 83 dc 16 |.#.....#|...!....|
|00004310| 1b db 0c 42 14 dd db 21 | 87 22 20 5b 62 6f 75 6e |...B...!|." [boun|
|00004320| 64 70 20 6d 65 6e 75 2d | 62 61 72 2d 62 6f 6f 6b |dp menu-|bar-book|
|00004330| 6d 61 72 6b 2d 6d 61 70 | 20 6d 61 6b 65 2d 73 70 |mark-map| make-sp|
|00004340| 61 72 73 65 2d 6b 65 79 | 6d 61 70 20 22 42 6f 6f |arse-key|map "Boo|
|00004350| 6b 6d 61 72 6b 20 66 75 | 6e 63 74 69 6f 6e 73 22 |kmark fu|nctions"|
|00004360| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00004370| 73 74 20 64 65 66 61 6c | 69 61 73 20 64 65 66 69 |st defal|ias defi|
|00004380| 6e 65 2d 6b 65 79 20 5b | 6c 6f 61 64 5d 20 28 22 |ne-key [|load] ("|
|00004390| 4c 6f 61 64 20 61 20 42 | 6f 6f 6b 6d 61 72 6b 20 |Load a B|ookmark |
|000043a0| 46 69 6c 65 2e 2e 2e 22 | 20 2e 20 62 6f 6f 6b 6d |File..."| . bookm|
|000043b0| 61 72 6b 2d 6c 6f 61 64 | 29 20 5b 77 72 69 74 65 |ark-load|) [write|
|000043c0| 5d 20 28 22 53 61 76 65 | 20 42 6f 6f 6b 6d 61 72 |] ("Save| Bookmar|
|000043d0| 6b 73 20 41 73 2e 2e 2e | 22 20 2e 20 62 6f 6f 6b |ks As...|" . book|
|000043e0| 6d 61 72 6b 2d 77 72 69 | 74 65 29 20 5b 73 61 76 |mark-wri|te) [sav|
|000043f0| 65 5d 20 28 22 53 61 76 | 65 20 42 6f 6f 6b 6d 61 |e] ("Sav|e Bookma|
|00004400| 72 6b 73 22 20 2e 20 62 | 6f 6f 6b 6d 61 72 6b 2d |rks" . b|ookmark-|
|00004410| 73 61 76 65 29 20 5b 65 | 64 69 74 5d 20 28 22 45 |save) [e|dit] ("E|
|00004420| 64 69 74 20 42 6f 6f 6b | 6d 61 72 6b 20 4c 69 73 |dit Book|mark Lis|
|00004430| 74 22 20 2e 20 62 6f 6f | 6b 6d 61 72 6b 2d 62 6d |t" . boo|kmark-bm|
|00004440| 65 6e 75 2d 6c 69 73 74 | 29 20 5b 64 65 6c 65 74 |enu-list|) [delet|
|00004450| 65 5d 20 28 22 44 65 6c | 65 74 65 20 42 6f 6f 6b |e] ("Del|ete Book|
|00004460| 6d 61 72 6b 22 20 2e 20 | 62 6f 6f 6b 6d 61 72 6b |mark" . |bookmark|
|00004470| 2d 6d 65 6e 75 2d 64 65 | 6c 65 74 65 29 20 5b 72 |-menu-de|lete) [r|
|00004480| 65 6e 61 6d 65 5d 20 28 | 22 52 65 6e 61 6d 65 20 |ename] (|"Rename |
|00004490| 42 6f 6f 6b 6d 61 72 6b | 22 20 2e 20 62 6f 6f 6b |Bookmark|" . book|
|000044a0| 6d 61 72 6b 2d 6d 65 6e | 75 2d 72 65 6e 61 6d 65 |mark-men|u-rename|
|000044b0| 29 20 5b 6c 6f 63 61 74 | 65 5d 20 28 22 49 6e 73 |) [locat|e] ("Ins|
|000044c0| 65 72 74 20 4c 6f 63 61 | 74 69 6f 6e 22 20 2e 20 |ert Loca|tion" . |
|000044d0| 62 6f 6f 6b 6d 61 72 6b | 2d 6d 65 6e 75 2d 6c 6f |bookmark|-menu-lo|
|000044e0| 63 61 74 65 29 20 5b 69 | 6e 73 65 72 74 5d 20 28 |cate) [i|nsert] (|
|000044f0| 22 49 6e 73 65 72 74 20 | 43 6f 6e 74 65 6e 74 73 |"Insert |Contents|
|00004500| 22 20 2e 20 62 6f 6f 6b | 6d 61 72 6b 2d 6d 65 6e |" . book|mark-men|
|00004510| 75 2d 69 6e 73 65 72 74 | 29 20 5b 73 65 74 5d 20 |u-insert|) [set] |
|00004520| 28 22 53 65 74 20 42 6f | 6f 6b 6d 61 72 6b 22 20 |("Set Bo|okmark" |
|00004530| 2e 20 62 6f 6f 6b 6d 61 | 72 6b 2d 73 65 74 29 20 |. bookma|rk-set) |
|00004540| 5b 6a 75 6d 70 5d 20 28 | 22 4a 75 6d 70 20 74 6f |[jump] (|"Jump to|
|00004550| 20 42 6f 6f 6b 6d 61 72 | 6b 22 20 2e 20 62 6f 6f | Bookmar|k" . boo|
|00004560| 6b 6d 61 72 6b 2d 6d 65 | 6e 75 2d 6a 75 6d 70 29 |kmark-me|nu-jump)|
|00004570| 20 6c 69 73 74 2d 62 75 | 66 66 65 72 73 2d 64 69 | list-bu|ffers-di|
|00004580| 72 65 63 74 6f 72 79 20 | 6e 69 6c 20 6d 61 6b 65 |rectory |nil make|
|00004590| 2d 76 61 72 69 61 62 6c | 65 2d 62 75 66 66 65 72 |-variabl|e-buffer|
|000045a0| 2d 6c 6f 63 61 6c 5d 20 | 34 29 0a 23 40 33 31 37 |-local] |4).#@317|
|000045b0| 20 45 64 69 74 20 61 6e | 64 20 72 65 2d 65 76 61 | Edit an|d re-eva|
|000045c0| 6c 75 61 74 65 20 63 6f | 6d 70 6c 65 78 20 63 6f |luate co|mplex co|
|000045d0| 6d 6d 61 6e 64 20 77 69 | 74 68 20 6e 61 6d 65 20 |mmand wi|th name |
|000045e0| 6d 61 74 63 68 69 6e 67 | 20 50 41 54 54 45 52 4e |matching| PATTERN|
|000045f0| 2e 0a 4d 61 74 63 68 69 | 6e 67 20 6f 63 63 75 72 |..Matchi|ng occur|
|00004600| 72 65 6e 63 65 73 20 61 | 72 65 20 64 69 73 70 6c |rences a|re displ|
|00004610| 61 79 65 64 2c 20 6d 6f | 73 74 20 72 65 63 65 6e |ayed, mo|st recen|
|00004620| 74 20 66 69 72 73 74 2c | 20 75 6e 74 69 6c 20 79 |t first,| until y|
|00004630| 6f 75 20 73 65 6c 65 63 | 74 0a 61 20 66 6f 72 6d |ou selec|t.a form|
|00004640| 20 66 6f 72 20 65 76 61 | 6c 75 61 74 69 6f 6e 2e | for eva|luation.|
|00004650| 20 20 49 66 20 50 41 54 | 54 45 52 4e 20 69 73 20 | If PAT|TERN is |
|00004660| 65 6d 70 74 79 20 28 6f | 72 20 6e 69 6c 29 2c 20 |empty (o|r nil), |
|00004670| 65 76 65 72 79 20 66 6f | 72 6d 20 69 6e 20 74 68 |every fo|rm in th|
|00004680| 65 0a 63 6f 6d 6d 61 6e | 64 20 68 69 73 74 6f 72 |e.comman|d histor|
|00004690| 79 20 69 73 20 6f 66 66 | 65 72 65 64 2e 20 20 54 |y is off|ered. T|
|000046a0| 68 65 20 66 6f 72 6d 20 | 69 73 20 70 6c 61 63 65 |he form |is place|
|000046b0| 64 20 69 6e 20 74 68 65 | 20 6d 69 6e 69 62 75 66 |d in the| minibuf|
|000046c0| 66 65 72 20 66 6f 72 0a | 65 64 69 74 69 6e 67 20 |fer for.|editing |
|000046d0| 61 6e 64 20 74 68 65 20 | 72 65 73 75 6c 74 20 69 |and the |result i|
|000046e0| 73 20 65 76 61 6c 75 61 | 74 65 64 2e 1f 0a 28 61 |s evalua|ted...(a|
|000046f0| 75 74 6f 6c 6f 61 64 20 | 27 72 65 70 65 61 74 2d |utoload |'repeat-|
|00004700| 6d 61 74 63 68 69 6e 67 | 2d 63 6f 6d 70 6c 65 78 |matching|-complex|
|00004710| 2d 63 6f 6d 6d 61 6e 64 | 20 22 63 68 69 73 74 6f |-command| "chisto|
|00004720| 72 79 22 20 27 28 23 24 | 20 2e 20 31 37 38 34 31 |ry" '(#$| . 17841|
|00004730| 29 20 74 20 6e 69 6c 29 | 0a 23 40 33 30 38 20 4c |) t nil)|.#@308 L|
|00004740| 69 73 74 20 68 69 73 74 | 6f 72 79 20 6f 66 20 63 |ist hist|ory of c|
|00004750| 6f 6d 6d 61 6e 64 73 20 | 74 79 70 65 64 20 74 6f |ommands |typed to|
|00004760| 20 6d 69 6e 69 62 75 66 | 66 65 72 2e 0a 54 68 65 | minibuf|fer..The|
|00004770| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6d 6d 61 | number |of comma|
|00004780| 6e 64 73 20 6c 69 73 74 | 65 64 20 69 73 20 63 6f |nds list|ed is co|
|00004790| 6e 74 72 6f 6c 6c 65 64 | 20 62 79 20 60 6c 69 73 |ntrolled| by `lis|
|000047a0| 74 2d 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 |t-comman|d-histor|
|000047b0| 79 2d 6d 61 78 27 2e 0a | 43 61 6c 6c 73 20 76 61 |y-max'..|Calls va|
|000047c0| 6c 75 65 20 6f 66 20 60 | 6c 69 73 74 2d 63 6f 6d |lue of `|list-com|
|000047d0| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 66 69 6c |mand-his|tory-fil|
|000047e0| 74 65 72 27 20 28 69 66 | 20 6e 6f 6e 2d 6e 69 6c |ter' (if| non-nil|
|000047f0| 29 20 6f 6e 20 65 61 63 | 68 20 68 69 73 74 6f 72 |) on eac|h histor|
|00004800| 79 0a 65 6c 65 6d 65 6e | 74 20 74 6f 20 6a 75 64 |y.elemen|t to jud|
|00004810| 67 65 20 69 66 20 74 68 | 61 74 20 65 6c 65 6d 65 |ge if th|at eleme|
|00004820| 6e 74 20 73 68 6f 75 6c | 64 20 62 65 20 65 78 63 |nt shoul|d be exc|
|00004830| 6c 75 64 65 64 20 66 72 | 6f 6d 20 74 68 65 20 6c |luded fr|om the l|
|00004840| 69 73 74 2e 0a 0a 54 68 | 65 20 62 75 66 66 65 72 |ist...Th|e buffer|
|00004850| 20 69 73 20 6c 65 66 74 | 20 69 6e 20 43 6f 6d 6d | is left| in Comm|
|00004860| 61 6e 64 20 48 69 73 74 | 6f 72 79 20 6d 6f 64 65 |and Hist|ory mode|
|00004870| 2e 1f 0a 28 61 75 74 6f | 6c 6f 61 64 20 27 6c 69 |...(auto|load 'li|
|00004880| 73 74 2d 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |st-comma|nd-histo|
|00004890| 72 79 20 22 63 68 69 73 | 74 6f 72 79 22 20 27 28 |ry "chis|tory" '(|
|000048a0| 23 24 20 2e 20 31 38 32 | 33 39 29 20 74 20 6e 69 |#$ . 182|39) t ni|
|000048b0| 6c 29 0a 23 40 36 30 30 | 20 4d 61 6a 6f 72 20 6d |l).#@600| Major m|
|000048c0| 6f 64 65 20 66 6f 72 20 | 65 78 61 6d 69 6e 69 6e |ode for |examinin|
|000048d0| 67 20 63 6f 6d 6d 61 6e | 64 73 20 66 72 6f 6d 20 |g comman|ds from |
|000048e0| 60 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |`command|-history|
|000048f0| 27 2e 0a 54 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |'..The n|umber of|
|00004900| 20 63 6f 6d 6d 61 6e 64 | 73 20 6c 69 73 74 65 64 | command|s listed|
|00004910| 20 69 73 20 63 6f 6e 74 | 72 6f 6c 6c 65 64 20 62 | is cont|rolled b|
|00004920| 79 20 60 6c 69 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |y `list-|command-|
|00004930| 68 69 73 74 6f 72 79 2d | 6d 61 78 27 2e 0a 54 68 |history-|max'..Th|
|00004940| 65 20 63 6f 6d 6d 61 6e | 64 20 68 69 73 74 6f 72 |e comman|d histor|
|00004950| 79 20 69 73 20 66 69 6c | 74 65 72 65 64 20 62 79 |y is fil|tered by|
|00004960| 20 60 6c 69 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 68 | `list-c|ommand-h|
|00004970| 69 73 74 6f 72 79 2d 66 | 69 6c 74 65 72 27 20 69 |istory-f|ilter' i|
|00004980| 66 20 6e 6f 6e 2d 6e 69 | 6c 2e 0a 55 73 65 20 5c |f non-ni|l..Use \|
|00004990| 3c 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |<command|-history|
|000049a0| 2d 6d 61 70 3e 5c 5b 63 | 6f 6d 6d 61 6e 64 2d 68 |-map>\[c|ommand-h|
|000049b0| 69 73 74 6f 72 79 2d 72 | 65 70 65 61 74 5d 20 74 |istory-r|epeat] t|
|000049c0| 6f 20 72 65 70 65 61 74 | 20 74 68 65 20 63 6f 6d |o repeat| the com|
|000049d0| 6d 61 6e 64 20 6f 6e 20 | 74 68 65 20 63 75 72 72 |mand on |the curr|
|000049e0| 65 6e 74 20 6c 69 6e 65 | 2e 0a 0a 4f 74 68 65 72 |ent line|...Other|
|000049f0| 77 69 73 65 20 6d 75 63 | 68 20 6c 69 6b 65 20 45 |wise muc|h like E|
|00004a00| 6d 61 63 73 2d 4c 69 73 | 70 20 4d 6f 64 65 20 65 |macs-Lis|p Mode e|
|00004a10| 78 63 65 70 74 20 74 68 | 61 74 20 74 68 65 72 65 |xcept th|at there|
|00004a20| 20 69 73 20 6e 6f 20 73 | 65 6c 66 2d 69 6e 73 65 | is no s|elf-inse|
|00004a30| 72 74 69 6f 6e 0a 61 6e | 64 20 64 69 67 69 74 73 |rtion.an|d digits|
|00004a40| 20 70 72 6f 76 69 64 65 | 20 70 72 65 66 69 78 20 | provide| prefix |
|00004a50| 61 72 67 75 6d 65 6e 74 | 73 2e 20 20 54 61 62 20 |argument|s. Tab |
|00004a60| 64 6f 65 73 20 6e 6f 74 | 20 69 6e 64 65 6e 74 2e |does not| indent.|
|00004a70| 0a 5c 7b 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |.\{comma|nd-histo|
|00004a80| 72 79 2d 6d 61 70 7d 0a | 43 61 6c 6c 73 20 74 68 |ry-map}.|Calls th|
|00004a90| 65 20 76 61 6c 75 65 20 | 6f 66 20 60 63 6f 6d 6d |e value |of `comm|
|00004aa0| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 68 6f 6f 6b |and-hist|ory-hook|
|00004ab0| 27 20 69 66 20 74 68 61 | 74 20 69 73 20 6e 6f 6e |' if tha|t is non|
|00004ac0| 2d 6e 69 6c 2e 0a 54 68 | 65 20 43 6f 6d 6d 61 6e |-nil..Th|e Comman|
|00004ad0| 64 20 48 69 73 74 6f 72 | 79 20 6c 69 73 74 69 6e |d Histor|y listin|
|00004ae0| 67 20 69 73 20 72 65 63 | 6f 6d 70 75 74 65 64 20 |g is rec|omputed |
|00004af0| 65 61 63 68 20 74 69 6d | 65 20 74 68 69 73 20 6d |each tim|e this m|
|00004b00| 6f 64 65 20 69 73 20 69 | 6e 76 6f 6b 65 64 2e 1f |ode is i|nvoked..|
|00004b10| 0a 28 61 75 74 6f 6c 6f | 61 64 20 27 63 6f 6d 6d |.(autolo|ad 'comm|
|00004b20| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 6d 6f 64 65 |and-hist|ory-mode|
|00004b30| 20 22 63 68 69 73 74 6f | 72 79 22 20 27 28 23 24 | "chisto|ry" '(#$|
|00004b40| 20 2e 20 31 38 36 31 37 | 29 20 74 20 6e 69 6c 29 | . 18617|) t nil)|
|00004b50| 0a 28 61 64 64 2d 68 6f | 6f 6b 20 27 73 61 6d 65 |.(add-ho|ok 'same|
|00004b60| 2d 77 69 6e 64 6f 77 2d | 62 75 66 66 65 72 2d 6e |-window-|buffer-n|
|00004b70| 61 6d 65 73 20 22 2a 73 | 63 68 65 6d 65 2a 22 29 |ames "*s|cheme*")|
|00004b80| 0a 23 40 35 39 30 20 43 | 6f 6d 70 61 72 65 20 74 |.#@590 C|ompare t|
|00004b90| 65 78 74 20 69 6e 20 63 | 75 72 72 65 6e 74 20 77 |ext in c|urrent w|
|00004ba0| 69 6e 64 6f 77 20 77 69 | 74 68 20 74 65 78 74 20 |indow wi|th text |
|00004bb0| 69 6e 20 6e 65 78 74 20 | 77 69 6e 64 6f 77 2e 0a |in next |window..|
|00004bc0| 43 6f 6d 70 61 72 65 73 | 20 74 68 65 20 74 65 78 |Compares| the tex|
|00004bd0| 74 20 73 74 61 72 74 69 | 6e 67 20 61 74 20 70 6f |t starti|ng at po|
|00004be0| 69 6e 74 20 69 6e 20 65 | 61 63 68 20 77 69 6e 64 |int in e|ach wind|
|00004bf0| 6f 77 2c 0a 6d 6f 76 69 | 6e 67 20 6f 76 65 72 20 |ow,.movi|ng over |
|00004c00| 74 65 78 74 20 69 6e 20 | 65 61 63 68 20 6f 6e 65 |text in |each one|
|00004c10| 20 61 73 20 66 61 72 20 | 61 73 20 74 68 65 79 20 | as far |as they |
|00004c20| 6d 61 74 63 68 2e 0a 0a | 54 68 69 73 20 63 6f 6d |match...|This com|
|00004c30| 6d 61 6e 64 20 70 75 73 | 68 65 73 20 74 68 65 20 |mand pus|hes the |
|00004c40| 6d 61 72 6b 20 69 6e 20 | 65 61 63 68 20 77 69 6e |mark in |each win|
|00004c50| 64 6f 77 0a 61 74 20 74 | 68 65 20 70 72 69 6f 72 |dow.at t|he prior|
|00004c60| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 70 6f 69 | locatio|n of poi|
|00004c70| 6e 74 20 69 6e 20 74 68 | 61 74 20 77 69 6e 64 6f |nt in th|at windo|
|00004c80| 77 2e 0a 49 66 20 62 6f | 74 68 20 77 69 6e 64 6f |w..If bo|th windo|
|00004c90| 77 73 20 64 69 73 70 6c | 61 79 20 74 68 65 20 73 |ws displ|ay the s|
|00004ca0| 61 6d 65 20 62 75 66 66 | 65 72 2c 0a 74 68 65 20 |ame buff|er,.the |
|00004cb0| 6d 61 72 6b 20 69 73 20 | 70 75 73 68 65 64 20 74 |mark is |pushed t|
|00004cc0| 77 69 63 65 20 69 6e 20 | 74 68 61 74 20 62 75 66 |wice in |that buf|
|00004cd0| 66 65 72 3a 0a 66 69 72 | 73 74 20 69 6e 20 74 68 |fer:.fir|st in th|
|00004ce0| 65 20 6f 74 68 65 72 20 | 77 69 6e 64 6f 77 2c 20 |e other |window, |
|00004cf0| 74 68 65 6e 20 69 6e 20 | 74 68 65 20 73 65 6c 65 |then in |the sele|
|00004d00| 63 74 65 64 20 77 69 6e | 64 6f 77 2e 0a 0a 41 20 |cted win|dow...A |
|00004d10| 70 72 65 66 69 78 20 61 | 72 67 20 6d 65 61 6e 73 |prefix a|rg means|
|00004d20| 20 69 67 6e 6f 72 65 20 | 63 68 61 6e 67 65 73 20 | ignore |changes |
|00004d30| 69 6e 20 77 68 69 74 65 | 73 70 61 63 65 2e 0a 54 |in white|space..T|
|00004d40| 68 65 20 76 61 72 69 61 | 62 6c 65 20 60 63 6f 6d |he varia|ble `com|
|00004d50| 70 61 72 65 2d 77 69 6e | 64 6f 77 73 2d 77 68 69 |pare-win|dows-whi|
|00004d60| 74 65 73 70 61 63 65 27 | 20 63 6f 6e 74 72 6f 6c |tespace'| control|
|00004d70| 73 20 68 6f 77 20 77 68 | 69 74 65 73 70 61 63 65 |s how wh|itespace|
|00004d80| 20 69 73 20 73 6b 69 70 | 70 65 64 2e 0a 49 66 20 | is skip|ped..If |
|00004d90| 60 63 6f 6d 70 61 72 65 | 2d 69 67 6e 6f 72 65 2d |`compare|-ignore-|
|00004da0| 63 61 73 65 27 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |case' is| non-nil|
|00004db0| 2c 20 63 68 61 6e 67 65 | 73 20 69 6e 20 63 61 73 |, change|s in cas|
|00004dc0| 65 20 61 72 65 20 61 6c | 73 6f 20 69 67 6e 6f 72 |e are al|so ignor|
|00004dd0| 65 64 2e 1f 0a 28 61 75 | 74 6f 6c 6f 61 64 20 27 |ed...(au|toload '|
|00004de0| 63 6f 6d 70 61 72 65 2d | 77 69 6e 64 6f 77 73 20 |compare-|windows |
|00004df0| 22 63 6f 6d 70 61 72 65 | 2d 77 22 20 27 28 23 24 |"compare|-w" '(#$|
|00004e00| 20 2e 20 31 39 33 33 35 | 29 20 74 20 6e 69 6c 29 | . 19335|) t nil)|
|00004e10| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00004e20| 2d 76 61 72 69 61 62 6c | 65 20 27 63 6f 6d 70 69 |-variabl|e 'compi|
|00004e30| 6c 61 74 69 6f 6e 2d 6d | 6f 64 65 2d 68 6f 6f 6b |lation-m|ode-hook|
|00004e40| 20 27 6e 69 6c 20 22 2a | 4c 69 73 74 20 6f 66 20 | 'nil "*|List of |
|00004e50| 68 6f 6f 6b 20 66 75 6e | 63 74 69 6f 6e 73 20 72 |hook fun|ctions r|
|00004e60| 75 6e 20 62 79 20 60 63 | 6f 6d 70 69 6c 61 74 69 |un by `c|ompilati|
|00004e70| 6f 6e 2d 6d 6f 64 65 27 | 20 28 73 65 65 20 60 72 |on-mode'| (see `r|
|00004e80| 75 6e 2d 68 6f 6f 6b 73 | 27 29 2e 22 20 3a 74 79 |un-hooks|')." :ty|
|00004e90| 70 65 20 27 68 6f 6f 6b | 20 3a 67 72 6f 75 70 20 |pe 'hook| :group |
|00004ea0| 27 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 29 0a 28 63 |'compila|tion).(c|
|00004eb0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00004ec0| 72 69 61 62 6c 65 20 27 | 63 6f 6d 70 69 6c 61 74 |riable '|compilat|
|00004ed0| 69 6f 6e 2d 77 69 6e 64 | 6f 77 2d 68 65 69 67 68 |ion-wind|ow-heigh|
|00004ee0| 74 20 27 6e 69 6c 20 22 | 2a 4e 75 6d 62 65 72 20 |t 'nil "|*Number |
|00004ef0| 6f 66 20 6c 69 6e 65 73 | 20 69 6e 20 61 20 63 6f |of lines| in a co|
|00004f00| 6d 70 69 6c 61 74 69 6f | 6e 20 77 69 6e 64 6f 77 |mpilatio|n window|
|00004f10| 2e 20 20 49 66 20 6e 69 | 6c 2c 20 75 73 65 20 45 |. If ni|l, use E|
|00004f20| 6d 61 63 73 20 64 65 66 | 61 75 6c 74 2e 22 20 3a |macs def|ault." :|
|00004f30| 74 79 70 65 20 27 28 63 | 68 6f 69 63 65 20 28 63 |type '(c|hoice (c|
|00004f40| 6f 6e 73 74 20 6e 69 6c | 29 20 69 6e 74 65 67 65 |onst nil|) intege|
|00004f50| 72 29 20 3a 67 72 6f 75 | 70 20 27 63 6f 6d 70 69 |r) :grou|p 'compi|
|00004f60| 6c 61 74 69 6f 6e 29 0a | 28 63 75 73 74 6f 6d 2d |lation).|(custom-|
|00004f70| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|00004f80| 20 27 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 62 75 | 'compil|ation-bu|
|00004f90| 66 66 65 72 2d 6e 61 6d | 65 2d 66 75 6e 63 74 69 |ffer-nam|e-functi|
|00004fa0| 6f 6e 20 27 6e 69 6c 20 | 22 46 75 6e 63 74 69 6f |on 'nil |"Functio|
|00004fb0| 6e 20 74 6f 20 63 6f 6d | 70 75 74 65 20 74 68 65 |n to com|pute the|
|00004fc0| 20 6e 61 6d 65 20 6f 66 | 20 61 20 63 6f 6d 70 69 | name of| a compi|
|00004fd0| 6c 61 74 69 6f 6e 20 62 | 75 66 66 65 72 2e 5c 6e |lation b|uffer.\n|
|00004fe0| 54 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 72 65 63 |The func|tion rec|
|00004ff0| 65 69 76 65 73 20 6f 6e | 65 20 61 72 67 75 6d 65 |eives on|e argume|
|00005000| 6e 74 2c 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |nt, the |name of |
|00005010| 74 68 65 20 6d 61 6a 6f | 72 20 6d 6f 64 65 20 6f |the majo|r mode o|
|00005020| 66 20 74 68 65 5c 6e 63 | 6f 6d 70 69 6c 61 74 69 |f the\nc|ompilati|
|00005030| 6f 6e 20 62 75 66 66 65 | 72 2e 20 20 49 74 20 73 |on buffe|r. It s|
|00005040| 68 6f 75 6c 64 20 72 65 | 74 75 72 6e 20 61 20 73 |hould re|turn a s|
|00005050| 74 72 69 6e 67 2e 5c 6e | 6e 69 6c 20 6d 65 61 6e |tring.\n|nil mean|
|00005060| 73 20 63 6f 6d 70 75 74 | 65 20 74 68 65 20 6e 61 |s comput|e the na|
|00005070| 6d 65 20 77 69 74 68 20 | 60 28 63 6f 6e 63 61 74 |me with |`(concat|
|00005080| 20 5c 22 2a 5c 22 20 28 | 64 6f 77 6e 63 61 73 65 | \"*\" (|downcase|
|00005090| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 29 20 5c 22 2a | major-m|ode) \"*|
|000050a0| 5c 22 29 27 2e 22 20 3a | 74 79 70 65 20 27 66 75 |\")'." :|type 'fu|
|000050b0| 6e 63 74 69 6f 6e 20 3a | 67 72 6f 75 70 20 27 63 |nction :|group 'c|
|000050c0| 6f 6d 70 69 6c 61 74 69 | 6f 6e 29 0a 28 63 75 73 |ompilati|on).(cus|
|000050d0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|000050e0| 61 62 6c 65 20 27 63 6f | 6d 70 69 6c 61 74 69 6f |able 'co|mpilatio|
|000050f0| 6e 2d 66 69 6e 69 73 68 | 2d 66 75 6e 63 74 69 6f |n-finish|-functio|
|00005100| 6e 20 27 6e 69 6c 20 22 | 2a 46 75 6e 63 74 69 6f |n 'nil "|*Functio|
|00005110| 6e 20 74 6f 20 63 61 6c | 6c 20 77 68 65 6e 20 61 |n to cal|l when a|
|00005120| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 20 70 72 6f | compila|tion pro|
|00005130| 63 65 73 73 20 66 69 6e | 69 73 68 65 73 2e 5c 6e |cess fin|ishes.\n|
|00005140| 49 74 20 69 73 20 63 61 | 6c 6c 65 64 20 77 69 74 |It is ca|lled wit|
|00005150| 68 20 74 77 6f 20 61 72 | 67 75 6d 65 6e 74 73 3a |h two ar|guments:|
|00005160| 20 74 68 65 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e | the com|pilation|
|00005170| 20 62 75 66 66 65 72 2c | 20 61 6e 64 20 61 20 73 | buffer,| and a s|
|00005180| 74 72 69 6e 67 5c 6e 64 | 65 73 63 72 69 62 69 6e |tring\nd|escribin|
|00005190| 67 20 68 6f 77 20 74 68 | 65 20 70 72 6f 63 65 73 |g how th|e proces|
|000051a0| 73 20 66 69 6e 69 73 68 | 65 64 2e 22 20 3a 74 79 |s finish|ed." :ty|
|000051b0| 70 65 20 27 66 75 6e 63 | 74 69 6f 6e 20 3a 67 72 |pe 'func|tion :gr|
|000051c0| 6f 75 70 20 27 63 6f 6d | 70 69 6c 61 74 69 6f 6e |oup 'com|pilation|
|000051d0| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|000051e0| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 63 6f 6d 70 |e-variab|le 'comp|
|000051f0| 69 6c 61 74 69 6f 6e 2d | 73 65 61 72 63 68 2d 70 |ilation-|search-p|
|00005200| 61 74 68 20 27 27 28 6e | 69 6c 29 20 22 2a 4c 69 |ath ''(n|il) "*Li|
|00005210| 73 74 20 6f 66 20 64 69 | 72 65 63 74 6f 72 69 65 |st of di|rectorie|
|00005220| 73 20 74 6f 20 73 65 61 | 72 63 68 20 66 6f 72 20 |s to sea|rch for |
|00005230| 73 6f 75 72 63 65 20 66 | 69 6c 65 73 20 6e 61 6d |source f|iles nam|
|00005240| 65 64 20 69 6e 20 65 72 | 72 6f 72 20 6d 65 73 73 |ed in er|ror mess|
|00005250| 61 67 65 73 2e 5c 6e 45 | 6c 65 6d 65 6e 74 73 20 |ages.\nE|lements |
|00005260| 73 68 6f 75 6c 64 20 62 | 65 20 64 69 72 65 63 74 |should b|e direct|
|00005270| 6f 72 79 20 6e 61 6d 65 | 73 2c 20 6e 6f 74 20 66 |ory name|s, not f|
|00005280| 69 6c 65 20 6e 61 6d 65 | 73 20 6f 66 20 64 69 72 |ile name|s of dir|
|00005290| 65 63 74 6f 72 69 65 73 | 2e 5c 6e 6e 69 6c 20 61 |ectories|.\nnil a|
|000052a0| 73 20 61 6e 20 65 6c 65 | 6d 65 6e 74 20 6d 65 61 |s an ele|ment mea|
|000052b0| 6e 73 20 74 6f 20 74 72 | 79 20 74 68 65 20 64 65 |ns to tr|y the de|
|000052c0| 66 61 75 6c 74 20 64 69 | 72 65 63 74 6f 72 79 2e |fault di|rectory.|
|000052d0| 22 20 3a 74 79 70 65 20 | 27 28 72 65 70 65 61 74 |" :type |'(repeat|
|000052e0| 20 28 63 68 6f 69 63 65 | 20 28 63 6f 6e 73 74 20 | (choice| (const |
|000052f0| 3a 74 61 67 20 22 44 65 | 66 61 75 6c 74 22 20 6e |:tag "De|fault" n|
|00005300| 69 6c 29 20 64 69 72 65 | 63 74 6f 72 79 29 29 20 |il) dire|ctory)) |
|00005310| 3a 67 72 6f 75 70 20 27 | 63 6f 6d 70 69 6c 61 74 |:group '|compilat|
|00005320| 69 6f 6e 29 0a 23 40 37 | 39 39 20 43 6f 6d 70 69 |ion).#@7|99 Compi|
|00005330| 6c 65 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 69 |le the p|rogram i|
|00005340| 6e 63 6c 75 64 69 6e 67 | 20 74 68 65 20 63 75 72 |ncluding| the cur|
|00005350| 72 65 6e 74 20 62 75 66 | 66 65 72 2e 20 20 44 65 |rent buf|fer. De|
|00005360| 66 61 75 6c 74 3a 20 72 | 75 6e 20 60 6d 61 6b 65 |fault: r|un `make|
|00005370| 27 2e 0a 52 75 6e 73 20 | 43 4f 4d 4d 41 4e 44 2c |'..Runs |COMMAND,|
|00005380| 20 61 20 73 68 65 6c 6c | 20 63 6f 6d 6d 61 6e 64 | a shell| command|
|00005390| 2c 20 69 6e 20 61 20 73 | 65 70 61 72 61 74 65 20 |, in a s|eparate |
|000053a0| 70 72 6f 63 65 73 73 20 | 61 73 79 6e 63 68 72 6f |process |asynchro|
|000053b0| 6e 6f 75 73 6c 79 0a 77 | 69 74 68 20 6f 75 74 70 |nously.w|ith outp|
|000053c0| 75 74 20 67 6f 69 6e 67 | 20 74 6f 20 74 68 65 20 |ut going| to the |
|000053d0| 62 75 66 66 65 72 20 60 | 2a 63 6f 6d 70 69 6c 61 |buffer `|*compila|
|000053e0| 74 69 6f 6e 2a 27 2e 0a | 0a 59 6f 75 20 63 61 6e |tion*'..|.You can|
|000053f0| 20 74 68 65 6e 20 75 73 | 65 20 74 68 65 20 63 6f | then us|e the co|
|00005400| 6d 6d 61 6e 64 20 5c 5b | 6e 65 78 74 2d 65 72 72 |mmand \[|next-err|
|00005410| 6f 72 5d 20 74 6f 20 66 | 69 6e 64 20 74 68 65 20 |or] to f|ind the |
|00005420| 6e 65 78 74 20 65 72 72 | 6f 72 20 6d 65 73 73 61 |next err|or messa|
|00005430| 67 65 0a 61 6e 64 20 6d | 6f 76 65 20 74 6f 20 74 |ge.and m|ove to t|
|00005440| 68 65 20 73 6f 75 72 63 | 65 20 63 6f 64 65 20 74 |he sourc|e code t|
|00005450| 68 61 74 20 63 61 75 73 | 65 64 20 69 74 2e 0a 0a |hat caus|ed it...|
|00005460| 49 6e 74 65 72 61 63 74 | 69 76 65 6c 79 2c 20 70 |Interact|ively, p|
|00005470| 72 6f 6d 70 74 73 20 66 | 6f 72 20 74 68 65 20 63 |rompts f|or the c|
|00005480| 6f 6d 6d 61 6e 64 20 69 | 66 20 60 63 6f 6d 70 69 |ommand i|f `compi|
|00005490| 6c 61 74 69 6f 6e 2d 72 | 65 61 64 2d 63 6f 6d 6d |lation-r|ead-comm|
|000054a0| 61 6e 64 27 20 69 73 0a | 6e 6f 6e 2d 6e 69 6c 3b |and' is.|non-nil;|
|000054b0| 20 6f 74 68 65 72 77 69 | 73 65 20 75 73 65 73 20 | otherwi|se uses |
|000054c0| 60 63 6f 6d 70 69 6c 65 | 2d 63 6f 6d 6d 61 6e 64 |`compile|-command|
|000054d0| 27 2e 20 20 57 69 74 68 | 20 70 72 65 66 69 78 20 |'. With| prefix |
|000054e0| 61 72 67 2c 20 61 6c 77 | 61 79 73 20 70 72 6f 6d |arg, alw|ays prom|
|000054f0| 70 74 73 2e 0a 0a 54 6f | 20 72 75 6e 20 6d 6f 72 |pts...To| run mor|
|00005500| 65 20 74 68 61 6e 20 6f | 6e 65 20 63 6f 6d 70 69 |e than o|ne compi|
|00005510| 6c 61 74 69 6f 6e 20 61 | 74 20 6f 6e 63 65 2c 20 |lation a|t once, |
|00005520| 73 74 61 72 74 20 6f 6e | 65 20 61 6e 64 20 72 65 |start on|e and re|
|00005530| 6e 61 6d 65 20 74 68 65 | 0a 60 2a 63 6f 6d 70 69 |name the|.`*compi|
|00005540| 6c 61 74 69 6f 6e 2a 27 | 20 62 75 66 66 65 72 20 |lation*'| buffer |
|00005550| 74 6f 20 73 6f 6d 65 20 | 6f 74 68 65 72 20 6e 61 |to some |other na|
|00005560| 6d 65 20 77 69 74 68 20 | 5c 5b 72 65 6e 61 6d 65 |me with |\[rename|
|00005570| 2d 62 75 66 66 65 72 5d | 2e 0a 54 68 65 6e 20 73 |-buffer]|..Then s|
|00005580| 74 61 72 74 20 74 68 65 | 20 6e 65 78 74 20 6f 6e |tart the| next on|
|00005590| 65 2e 0a 0a 54 68 65 20 | 6e 61 6d 65 20 75 73 65 |e...The |name use|
|000055a0| 64 20 66 6f 72 20 74 68 | 65 20 62 75 66 66 65 72 |d for th|e buffer|
|000055b0| 20 69 73 20 61 63 74 75 | 61 6c 6c 79 20 77 68 61 | is actu|ally wha|
|000055c0| 74 65 76 65 72 20 69 73 | 20 72 65 74 75 72 6e 65 |tever is| returne|
|000055d0| 64 20 62 79 0a 74 68 65 | 20 66 75 6e 63 74 69 6f |d by.the| functio|
|000055e0| 6e 20 69 6e 20 60 63 6f | 6d 70 69 6c 61 74 69 6f |n in `co|mpilatio|
|000055f0| 6e 2d 62 75 66 66 65 72 | 2d 6e 61 6d 65 2d 66 75 |n-buffer|-name-fu|
|00005600| 6e 63 74 69 6f 6e 27 2c | 20 73 6f 20 79 6f 75 20 |nction',| so you |
|00005610| 63 61 6e 20 73 65 74 20 | 74 68 61 74 0a 74 6f 20 |can set |that.to |
|00005620| 61 20 66 75 6e 63 74 69 | 6f 6e 20 74 68 61 74 20 |a functi|on that |
|00005630| 67 65 6e 65 72 61 74 65 | 73 20 61 20 75 6e 69 71 |generate|s a uniq|
|00005640| 75 65 20 6e 61 6d 65 2e | 1f 0a 28 61 75 74 6f 6c |ue name.|..(autol|
|00005650| 6f 61 64 20 27 63 6f 6d | 70 69 6c 65 20 22 63 6f |oad 'com|pile "co|
|00005660| 6d 70 69 6c 65 22 20 27 | 28 23 24 20 2e 20 32 31 |mpile" '|(#$ . 21|
|00005670| 32 39 31 29 20 74 20 6e | 69 6c 29 0a 23 40 32 38 |291) t n|il).#@28|
|00005680| 33 20 52 75 6e 20 67 72 | 65 70 2c 20 77 69 74 68 |3 Run gr|ep, with|
|00005690| 20 75 73 65 72 2d 73 70 | 65 63 69 66 69 65 64 20 | user-sp|ecified |
|000056a0| 61 72 67 73 2c 20 61 6e | 64 20 63 6f 6c 6c 65 63 |args, an|d collec|
|000056b0| 74 20 6f 75 74 70 75 74 | 20 69 6e 20 61 20 62 75 |t output| in a bu|
|000056c0| 66 66 65 72 2e 0a 57 68 | 69 6c 65 20 67 72 65 70 |ffer..Wh|ile grep|
|000056d0| 20 72 75 6e 73 20 61 73 | 79 6e 63 68 72 6f 6e 6f | runs as|ynchrono|
|000056e0| 75 73 6c 79 2c 20 79 6f | 75 20 63 61 6e 20 75 73 |usly, yo|u can us|
|000056f0| 65 20 74 68 65 20 5c 5b | 6e 65 78 74 2d 65 72 72 |e the \[|next-err|
|00005700| 6f 72 5d 20 63 6f 6d 6d | 61 6e 64 0a 74 6f 20 66 |or] comm|and.to f|
|00005710| 69 6e 64 20 74 68 65 20 | 74 65 78 74 20 74 68 61 |ind the |text tha|
|00005720| 74 20 67 72 65 70 20 68 | 69 74 73 20 72 65 66 65 |t grep h|its refe|
|00005730| 72 20 74 6f 2e 0a 0a 54 | 68 69 73 20 63 6f 6d 6d |r to...T|his comm|
|00005740| 61 6e 64 20 75 73 65 73 | 20 61 20 73 70 65 63 69 |and uses| a speci|
|00005750| 61 6c 20 68 69 73 74 6f | 72 79 20 6c 69 73 74 20 |al histo|ry list |
|00005760| 66 6f 72 20 69 74 73 20 | 61 72 67 75 6d 65 6e 74 |for its |argument|
|00005770| 73 2c 20 73 6f 20 79 6f | 75 20 63 61 6e 0a 65 61 |s, so yo|u can.ea|
|00005780| 73 69 6c 79 20 72 65 70 | 65 61 74 20 61 20 67 72 |sily rep|eat a gr|
|00005790| 65 70 20 63 6f 6d 6d 61 | 6e 64 2e 1f 0a 28 61 75 |ep comma|nd...(au|
|000057a0| 74 6f 6c 6f 61 64 20 27 | 67 72 65 70 20 22 63 6f |toload '|grep "co|
|000057b0| 6d 70 69 6c 65 22 20 27 | 28 23 24 20 2e 20 32 32 |mpile" '|(#$ . 22|
|000057c0| 31 34 36 29 20 74 20 6e | 69 6c 29 0a 23 40 34 30 |146) t n|il).#@40|
|000057d0| 30 20 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 6f 72 |0 Major |mode for|
|000057e0| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 20 6c 6f 67 | compila|tion log|
|000057f0| 20 62 75 66 66 65 72 73 | 2e 0a 5c 3c 63 6f 6d 70 | buffers|..\<comp|
|00005800| 69 6c 61 74 69 6f 6e 2d | 6d 6f 64 65 2d 6d 61 70 |ilation-|mode-map|
|00005810| 3e 54 6f 20 76 69 73 69 | 74 20 74 68 65 20 73 6f |>To visi|t the so|
|00005820| 75 72 63 65 20 66 6f 72 | 20 61 20 6c 69 6e 65 2d |urce for| a line-|
|00005830| 6e 75 6d 62 65 72 65 64 | 20 65 72 72 6f 72 2c 0a |numbered| error,.|
|00005840| 6d 6f 76 65 20 70 6f 69 | 6e 74 20 74 6f 20 74 68 |move poi|nt to th|
|00005850| 65 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 20 |e error |message |
|00005860| 6c 69 6e 65 20 61 6e 64 | 20 74 79 70 65 20 5c 5b |line and| type \[|
|00005870| 63 6f 6d 70 69 6c 65 2d | 67 6f 74 6f 2d 65 72 72 |compile-|goto-err|
|00005880| 6f 72 5d 2c 0a 6f 72 20 | 63 6c 69 63 6b 20 6f 6e |or],.or |click on|
|00005890| 20 74 68 65 20 6c 69 6e | 65 20 77 69 74 68 20 5c | the lin|e with \|
|000058a0| 5b 63 6f 6d 70 69 6c 65 | 2d 6d 6f 75 73 65 2d 67 |[compile|-mouse-g|
|000058b0| 6f 74 6f 2d 65 72 72 6f | 72 5d 2e 0a 54 68 65 72 |oto-erro|r]..Ther|
|000058c0| 65 20 69 73 20 61 20 6d | 65 6e 75 20 6f 66 20 63 |e is a m|enu of c|
|000058d0| 6f 6d 6d 61 6e 64 73 20 | 6f 6e 20 5c 5b 63 6f 6d |ommands |on \[com|
|000058e0| 70 69 6c 65 2d 70 6f 70 | 75 70 2d 6d 65 6e 75 5d |pile-pop|up-menu]|
|000058f0| 2e 0a 54 6f 20 6b 69 6c | 6c 20 74 68 65 20 63 6f |..To kil|l the co|
|00005900| 6d 70 69 6c 61 74 69 6f | 6e 2c 20 74 79 70 65 20 |mpilatio|n, type |
|00005910| 5c 5b 6b 69 6c 6c 2d 63 | 6f 6d 70 69 6c 61 74 69 |\[kill-c|ompilati|
|00005920| 6f 6e 5d 2e 0a 0a 52 75 | 6e 73 20 60 63 6f 6d 70 |on]...Ru|ns `comp|
|00005930| 69 6c 61 74 69 6f 6e 2d | 6d 6f 64 65 2d 68 6f 6f |ilation-|mode-hoo|
|00005940| 6b 27 20 77 69 74 68 20 | 60 72 75 6e 2d 68 6f 6f |k' with |`run-hoo|
|00005950| 6b 73 27 20 28 77 68 69 | 63 68 20 73 65 65 29 2e |ks' (whi|ch see).|
|00005960| 1f 0a 28 61 75 74 6f 6c | 6f 61 64 20 27 63 6f 6d |..(autol|oad 'com|
|00005970| 70 69 6c 61 74 69 6f 6e | 2d 6d 6f 64 65 20 22 63 |pilation|-mode "c|
|00005980| 6f 6d 70 69 6c 65 22 20 | 27 28 23 24 20 2e 20 32 |ompile" |'(#$ . 2|
|00005990| 32 34 38 32 29 20 74 20 | 6e 69 6c 29 0a 23 40 31 |2482) t |nil).#@1|
|000059a0| 34 39 20 54 6f 67 67 6c | 65 20 63 6f 6d 70 69 6c |49 Toggl|e compil|
|000059b0| 61 74 69 6f 6e 20 6d 69 | 6e 6f 72 20 6d 6f 64 65 |ation mi|nor mode|
|000059c0| 2e 0a 57 69 74 68 20 61 | 72 67 2c 20 74 75 72 6e |..With a|rg, turn|
|000059d0| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 20 6d 6f 64 | compila|tion mod|
|000059e0| 65 20 6f 6e 20 69 66 20 | 61 6e 64 20 6f 6e 6c 79 |e on if |and only|
|000059f0| 20 69 66 20 61 72 67 20 | 69 73 20 70 6f 73 69 74 | if arg |is posit|
|00005a00| 69 76 65 2e 0a 53 65 65 | 20 60 63 6f 6d 70 69 6c |ive..See| `compil|
|00005a10| 61 74 69 6f 6e 2d 6d 6f | 64 65 27 2e 0a 21 20 5c |ation-mo|de'..! \|
|00005a20| 7b 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 6d 6f 64 |{compila|tion-mod|
|00005a30| 65 2d 6d 61 70 7d 1f 0a | 28 61 75 74 6f 6c 6f 61 |e-map}..|(autoloa|
|00005a40| 64 20 27 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 6d |d 'compi|lation-m|
|00005a50| 69 6e 6f 72 2d 6d 6f 64 | 65 20 22 63 6f 6d 70 69 |inor-mod|e "compi|
|00005a60| 6c 65 22 20 27 28 23 24 | 20 2e 20 32 32 39 34 37 |le" '(#$| . 22947|
|00005a70| 29 20 74 20 6e 69 6c 29 | 0a 23 40 38 35 35 20 56 |) t nil)|.#@855 V|
|00005a80| 69 73 69 74 20 6e 65 78 | 74 20 63 6f 6d 70 69 6c |isit nex|t compil|
|00005a90| 61 74 69 6f 6e 20 65 72 | 72 6f 72 20 6d 65 73 73 |ation er|ror mess|
|00005aa0| 61 67 65 20 61 6e 64 20 | 63 6f 72 72 65 73 70 6f |age and |correspo|
|00005ab0| 6e 64 69 6e 67 20 73 6f | 75 72 63 65 20 63 6f 64 |nding so|urce cod|
|00005ac0| 65 2e 0a 54 68 69 73 20 | 6f 70 65 72 61 74 65 73 |e..This |operates|
|00005ad0| 20 6f 6e 20 74 68 65 20 | 6f 75 74 70 75 74 20 66 | on the |output f|
|00005ae0| 72 6f 6d 20 74 68 65 20 | 5c 5b 63 6f 6d 70 69 6c |rom the |\[compil|
|00005af0| 65 5d 20 63 6f 6d 6d 61 | 6e 64 2e 0a 49 66 20 61 |e] comma|nd..If a|
|00005b00| 6c 6c 20 70 72 65 70 61 | 72 73 65 64 20 65 72 72 |ll prepa|rsed err|
|00005b10| 6f 72 20 6d 65 73 73 61 | 67 65 73 20 68 61 76 65 |or messa|ges have|
|00005b20| 20 62 65 65 6e 20 70 72 | 6f 63 65 73 73 65 64 2c | been pr|ocessed,|
|00005b30| 0a 74 68 65 20 65 72 72 | 6f 72 20 6d 65 73 73 61 |.the err|or messa|
|00005b40| 67 65 20 62 75 66 66 65 | 72 20 69 73 20 63 68 65 |ge buffe|r is che|
|00005b50| 63 6b 65 64 20 66 6f 72 | 20 6e 65 77 20 6f 6e 65 |cked for| new one|
|00005b60| 73 2e 0a 0a 41 20 70 72 | 65 66 69 78 20 61 72 67 |s...A pr|efix arg|
|00005b70| 20 73 70 65 63 69 66 69 | 65 73 20 68 6f 77 20 6d | specifi|es how m|
|00005b80| 61 6e 79 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 |any erro|r messag|
|00005b90| 65 73 20 74 6f 20 6d 6f | 76 65 3b 0a 6e 65 67 61 |es to mo|ve;.nega|
|00005ba0| 74 69 76 65 20 6d 65 61 | 6e 73 20 6d 6f 76 65 20 |tive mea|ns move |
|00005bb0| 62 61 63 6b 20 74 6f 20 | 70 72 65 76 69 6f 75 73 |back to |previous|
|00005bc0| 20 65 72 72 6f 72 20 6d | 65 73 73 61 67 65 73 2e | error m|essages.|
|00005bd0| 0a 4a 75 73 74 20 43 2d | 75 20 61 73 20 61 20 70 |.Just C-|u as a p|
|00005be0| 72 65 66 69 78 20 6d 65 | 61 6e 73 20 72 65 70 61 |refix me|ans repa|
|00005bf0| 72 73 65 20 74 68 65 20 | 65 72 72 6f 72 20 6d 65 |rse the |error me|
|00005c00| 73 73 61 67 65 20 62 75 | 66 66 65 72 0a 61 6e 64 |ssage bu|ffer.and|
|00005c10| 20 73 74 61 72 74 20 61 | 74 20 74 68 65 20 66 69 | start a|t the fi|
|00005c20| 72 73 74 20 65 72 72 6f | 72 2e 0a 0a 5c 5b 6e 65 |rst erro|r...\[ne|
|00005c30| 78 74 2d 65 72 72 6f 72 | 5d 20 6e 6f 72 6d 61 6c |xt-error|] normal|
|00005c40| 6c 79 20 61 70 70 6c 69 | 65 73 20 74 6f 20 74 68 |ly appli|es to th|
|00005c50| 65 20 6d 6f 73 74 20 72 | 65 63 65 6e 74 20 63 6f |e most r|ecent co|
|00005c60| 6d 70 69 6c 61 74 69 6f | 6e 20 73 74 61 72 74 65 |mpilatio|n starte|
|00005c70| 64 2c 0a 62 75 74 20 61 | 73 20 6c 6f 6e 67 20 61 |d,.but a|s long a|
|00005c80| 73 20 79 6f 75 20 61 72 | 65 20 69 6e 20 74 68 65 |s you ar|e in the|
|00005c90| 20 6d 69 64 64 6c 65 20 | 6f 66 20 70 61 72 73 69 | middle |of parsi|
|00005ca0| 6e 67 20 65 72 72 6f 72 | 73 20 66 72 6f 6d 20 6f |ng error|s from o|
|00005cb0| 6e 65 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 0a 6f |ne compi|lation.o|
|00005cc0| 75 74 70 75 74 20 62 75 | 66 66 65 72 2c 20 79 6f |utput bu|ffer, yo|
|00005cd0| 75 20 73 74 61 79 20 77 | 69 74 68 20 74 68 61 74 |u stay w|ith that|
|00005ce0| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 20 6f 75 74 | compila|tion out|
|00005cf0| 70 75 74 20 62 75 66 66 | 65 72 2e 0a 0a 55 73 65 |put buff|er...Use|
|00005d00| 20 5c 5b 6e 65 78 74 2d | 65 72 72 6f 72 5d 20 69 | \[next-|error] i|
|00005d10| 6e 20 61 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |n a comp|ilation |
|00005d20| 6f 75 74 70 75 74 20 62 | 75 66 66 65 72 20 74 6f |output b|uffer to|
|00005d30| 20 73 77 69 74 63 68 20 | 74 6f 0a 70 72 6f 63 65 | switch |to.proce|
|00005d40| 73 73 69 6e 67 20 65 72 | 72 6f 72 73 20 66 72 6f |ssing er|rors fro|
|00005d50| 6d 20 74 68 61 74 20 63 | 6f 6d 70 69 6c 61 74 69 |m that c|ompilati|
|00005d60| 6f 6e 2e 0a 0a 53 65 65 | 20 76 61 72 69 61 62 6c |on...See| variabl|
|00005d70| 65 73 20 60 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |es `comp|ilation-|
|00005d80| 70 61 72 73 65 2d 65 72 | 72 6f 72 73 2d 66 75 6e |parse-er|rors-fun|
|00005d90| 63 74 69 6f 6e 27 20 61 | 6e 64 0a 60 63 6f 6d 70 |ction' a|nd.`comp|
|00005da0| 69 6c 61 74 69 6f 6e 2d | 65 72 72 6f 72 2d 72 65 |ilation-|error-re|
|00005db0| 67 65 78 70 2d 61 6c 69 | 73 74 27 20 66 6f 72 20 |gexp-ali|st' for |
|00005dc0| 63 75 73 74 6f 6d 69 7a | 61 74 69 6f 6e 20 69 64 |customiz|ation id|
|00005dd0| 65 61 73 2e 1f 0a 28 61 | 75 74 6f 6c 6f 61 64 20 |eas...(a|utoload |
|00005de0| 27 6e 65 78 74 2d 65 72 | 72 6f 72 20 22 63 6f 6d |'next-er|ror "com|
|00005df0| 70 69 6c 65 22 20 27 28 | 23 24 20 2e 20 32 33 31 |pile" '(|#$ . 231|
|00005e00| 36 37 29 20 74 20 6e 69 | 6c 29 0a 28 64 65 66 69 |67) t ni|l).(defi|
|00005e10| 6e 65 2d 6b 65 79 20 63 | 74 6c 2d 78 2d 6d 61 70 |ne-key c|tl-x-map|
|00005e20| 20 22 60 22 20 27 6e 65 | 78 74 2d 65 72 72 6f 72 | "`" 'ne|xt-error|
|00005e30| 29 0a 23 40 31 33 30 20 | 56 69 73 69 74 20 70 72 |).#@130 |Visit pr|
|00005e40| 65 76 69 6f 75 73 20 63 | 6f 6d 70 69 6c 61 74 69 |evious c|ompilati|
|00005e50| 6f 6e 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |on error| message|
|00005e60| 20 61 6e 64 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | and cor|respondi|
|00005e70| 6e 67 20 73 6f 75 72 63 | 65 20 63 6f 64 65 2e 0a |ng sourc|e code..|
|00005e80| 54 68 69 73 20 6f 70 65 | 72 61 74 65 73 20 6f 6e |This ope|rates on|
|00005e90| 20 74 68 65 20 6f 75 74 | 70 75 74 20 66 72 6f 6d | the out|put from|
|00005ea0| 20 74 68 65 20 5c 5b 63 | 6f 6d 70 69 6c 65 5d 20 | the \[c|ompile] |
|00005eb0| 63 6f 6d 6d 61 6e 64 2e | 1f 0a 28 61 75 74 6f 6c |command.|..(autol|
|00005ec0| 6f 61 64 20 27 70 72 65 | 76 69 6f 75 73 2d 65 72 |oad 'pre|vious-er|
|00005ed0| 72 6f 72 20 22 63 6f 6d | 70 69 6c 65 22 20 27 28 |ror "com|pile" '(|
|00005ee0| 23 24 20 2e 20 32 34 31 | 32 30 29 20 74 20 6e 69 |#$ . 241|20) t ni|
|00005ef0| 6c 29 0a 23 40 31 35 33 | 20 52 65 70 61 72 73 65 |l).#@153| Reparse|
|00005f00| 20 74 68 65 20 65 72 72 | 6f 72 20 6d 65 73 73 61 | the err|or messa|
|00005f10| 67 65 20 62 75 66 66 65 | 72 20 61 6e 64 20 73 74 |ge buffe|r and st|
|00005f20| 61 72 74 20 61 74 20 74 | 68 65 20 66 69 72 73 74 |art at t|he first|
|00005f30| 20 65 72 72 6f 72 0a 56 | 69 73 69 74 20 63 6f 72 | error.V|isit cor|
|00005f40| 72 65 73 70 6f 6e 64 69 | 6e 67 20 73 6f 75 72 63 |respondi|ng sourc|
|00005f50| 65 20 63 6f 64 65 2e 0a | 54 68 69 73 20 6f 70 65 |e code..|This ope|
|00005f60| 72 61 74 65 73 20 6f 6e | 20 74 68 65 20 6f 75 74 |rates on| the out|
|00005f70| 70 75 74 20 66 72 6f 6d | 20 74 68 65 20 5c 5b 63 |put from| the \[c|
|00005f80| 6f 6d 70 69 6c 65 5d 20 | 63 6f 6d 6d 61 6e 64 2e |ompile] |command.|
|00005f90| 1f 0a 28 61 75 74 6f 6c | 6f 61 64 20 27 66 69 72 |..(autol|oad 'fir|
|00005fa0| 73 74 2d 65 72 72 6f 72 | 20 22 63 6f 6d 70 69 6c |st-error| "compil|
|00005fb0| 65 22 20 27 28 23 24 20 | 2e 20 32 34 33 31 33 29 |e" '(#$ |. 24313)|
|00005fc0| 20 74 20 6e 69 6c 29 0a | 28 62 79 74 65 2d 63 6f | t nil).|(byte-co|
|00005fd0| 64 65 20 22 c0 09 c2 c3 | 23 88 c0 09 c4 c5 23 87 |de "....|#.....#.|
|00005fe0| 22 20 5b 64 65 66 69 6e | 65 2d 6b 65 79 20 67 6c |" [defin|e-key gl|
|00005ff0| 6f 62 61 6c 2d 6d 61 70 | 20 5b 28 6d 65 74 61 20 |obal-map| [(meta |
|00006000| 2f 29 5d 20 64 61 62 62 | 72 65 76 2d 65 78 70 61 |/)] dabb|rev-expa|
|00006010| 6e 64 20 5b 28 6d 65 74 | 61 20 63 6f 6e 74 72 6f |nd [(met|a contro|
|00006020| 6c 20 2f 29 5d 20 64 61 | 62 62 72 65 76 2d 63 6f |l /)] da|bbrev-co|
|00006030| 6d 70 6c 65 74 69 6f 6e | 5d 20 34 29 0a 23 40 34 |mpletion|] 4).#@4|
|00006040| 37 32 20 43 6f 6d 70 6c | 65 74 69 6f 6e 20 6f 6e |72 Compl|etion on|
|00006050| 20 63 75 72 72 65 6e 74 | 20 77 6f 72 64 2e 0a 4c | current| word..L|
|00006060| 69 6b 65 20 5c 5b 64 61 | 62 62 72 65 76 2d 65 78 |ike \[da|bbrev-ex|
|00006070| 70 61 6e 64 5d 20 62 75 | 74 20 66 69 6e 64 73 20 |pand] bu|t finds |
|00006080| 61 6c 6c 20 65 78 70 61 | 6e 73 69 6f 6e 73 20 69 |all expa|nsions i|
|00006090| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n the cu|rrent bu|
|000060a0| 66 66 65 72 0a 61 6e 64 | 20 70 72 65 73 65 6e 74 |ffer.and| present|
|000060b0| 73 20 73 75 67 67 65 73 | 74 69 6f 6e 73 20 66 6f |s sugges|tions fo|
|000060c0| 72 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2e 0a 0a 57 |r comple|tion...W|
|000060d0| 69 74 68 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |ith a pr|efix arg|
|000060e0| 75 6d 65 6e 74 2c 20 69 | 74 20 73 65 61 72 63 68 |ument, i|t search|
|000060f0| 65 73 20 61 6c 6c 20 62 | 75 66 66 65 72 73 20 61 |es all b|uffers a|
|00006100| 63 63 65 70 74 65 64 20 | 62 79 20 74 68 65 0a 66 |ccepted |by the.f|
|00006110| 75 6e 63 74 69 6f 6e 20 | 70 6f 69 6e 74 65 64 20 |unction |pointed |
|00006120| 6f 75 74 20 62 79 20 60 | 64 61 62 62 72 65 76 2d |out by `|dabbrev-|
|00006130| 66 72 69 65 6e 64 2d 62 | 75 66 66 65 72 2d 66 75 |friend-b|uffer-fu|
|00006140| 6e 63 74 69 6f 6e 27 20 | 74 6f 20 66 69 6e 64 20 |nction' |to find |
|00006150| 74 68 65 0a 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 2e |the.comp|letions.|
|00006160| 0a 0a 49 66 20 74 68 65 | 20 70 72 65 66 69 78 20 |..If the| prefix |
|00006170| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 31 36 20 28 |argument| is 16 (|
|00006180| 77 68 69 63 68 20 63 6f | 6d 65 73 20 66 72 6f 6d |which co|mes from|
|00006190| 20 43 2d 75 20 43 2d 75 | 29 2c 0a 74 68 65 6e 20 | C-u C-u|),.then |
|000061a0| 69 74 20 73 65 61 72 63 | 68 65 73 20 2a 61 6c 6c |it searc|hes *all|
|000061b0| 2a 20 62 75 66 66 65 72 | 73 2e 0a 0a 57 69 74 68 |* buffer|s...With|
|000061c0| 20 6e 6f 20 70 72 65 66 | 69 78 20 61 72 67 75 6d | no pref|ix argum|
|000061d0| 65 6e 74 2c 20 69 74 20 | 72 65 75 73 65 73 20 61 |ent, it |reuses a|
|000061e0| 6e 20 6f 6c 64 20 63 6f | 6d 70 6c 65 74 69 6f 6e |n old co|mpletion|
|000061f0| 20 6c 69 73 74 0a 69 66 | 20 74 68 65 72 65 20 69 | list.if| there i|
|00006200| 73 20 61 20 73 75 69 74 | 61 62 6c 65 20 6f 6e 65 |s a suit|able one|
|00006210| 20 61 6c 72 65 61 64 79 | 2e 1f 0a 28 61 75 74 6f | already|...(auto|
|00006220| 6c 6f 61 64 20 27 64 61 | 62 62 72 65 76 2d 63 6f |load 'da|bbrev-co|
|00006230| 6d 70 6c 65 74 69 6f 6e | 20 22 64 61 62 62 72 65 |mpletion| "dabbre|
|00006240| 76 22 20 27 28 23 24 20 | 2e 20 32 34 36 34 33 29 |v" '(#$ |. 24643)|
|00006250| 20 74 20 6e 69 6c 29 0a | 23 40 38 31 37 20 45 78 | t nil).|#@817 Ex|
|00006260| 70 61 6e 64 20 70 72 65 | 76 69 6f 75 73 20 77 6f |pand pre|vious wo|
|00006270| 72 64 20 22 64 79 6e 61 | 6d 69 63 61 6c 6c 79 22 |rd "dyna|mically"|
|00006280| 2e 0a 0a 45 78 70 61 6e | 64 73 20 74 6f 20 74 68 |...Expan|ds to th|
|00006290| 65 20 6d 6f 73 74 20 72 | 65 63 65 6e 74 2c 20 70 |e most r|ecent, p|
|000062a0| 72 65 63 65 64 69 6e 67 | 20 77 6f 72 64 20 66 6f |receding| word fo|
|000062b0| 72 20 77 68 69 63 68 20 | 74 68 69 73 20 69 73 20 |r which |this is |
|000062c0| 61 20 70 72 65 66 69 78 | 2e 0a 49 66 20 6e 6f 20 |a prefix|..If no |
|000062d0| 73 75 69 74 61 62 6c 65 | 20 70 72 65 63 65 64 69 |suitable| precedi|
|000062e0| 6e 67 20 77 6f 72 64 20 | 69 73 20 66 6f 75 6e 64 |ng word |is found|
|000062f0| 2c 20 77 6f 72 64 73 20 | 66 6f 6c 6c 6f 77 69 6e |, words |followin|
|00006300| 67 20 70 6f 69 6e 74 20 | 61 72 65 0a 63 6f 6e 73 |g point |are.cons|
|00006310| 69 64 65 72 65 64 2e 20 | 20 49 66 20 73 74 69 6c |idered. | If stil|
|00006320| 6c 20 6e 6f 20 73 75 69 | 74 61 62 6c 65 20 77 6f |l no sui|table wo|
|00006330| 72 64 20 69 73 20 66 6f | 75 6e 64 2c 20 74 68 65 |rd is fo|und, the|
|00006340| 6e 20 6c 6f 6f 6b 20 69 | 6e 20 74 68 65 0a 62 75 |n look i|n the.bu|
|00006350| 66 66 65 72 73 20 61 63 | 63 65 70 74 65 64 20 62 |ffers ac|cepted b|
|00006360| 79 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 70 |y the fu|nction p|
|00006370| 6f 69 6e 74 65 64 20 6f | 75 74 20 62 79 20 76 61 |ointed o|ut by va|
|00006380| 72 69 61 62 6c 65 0a 60 | 64 61 62 62 72 65 76 2d |riable.`|dabbrev-|
|00006390| 66 72 69 65 6e 64 2d 62 | 75 66 66 65 72 2d 66 75 |friend-b|uffer-fu|
|000063a0| 6e 63 74 69 6f 6e 27 2e | 0a 0a 41 20 70 6f 73 69 |nction'.|..A posi|
|000063b0| 74 69 76 65 20 70 72 65 | 66 69 78 20 61 72 67 75 |tive pre|fix argu|
|000063c0| 6d 65 6e 74 2c 20 4e 2c | 20 73 61 79 73 20 74 6f |ment, N,| says to|
|000063d0| 20 74 61 6b 65 20 74 68 | 65 20 4e 74 68 20 62 61 | take th|e Nth ba|
|000063e0| 63 6b 77 61 72 64 20 2a | 64 69 73 74 69 6e 63 74 |ckward *|distinct|
|000063f0| 2a 0a 70 6f 73 73 69 62 | 69 6c 69 74 79 2e 20 20 |*.possib|ility. |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
